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Abstract 

There  is  no  available  technology  for  studying  the 

m 

results  of  tactical  air-to-air  engagements  involving  more 
than  16  aircraft.  A  computer  model  based  on  a  central 
European  NATO-Warsaw  Pact  conventional  conflict  was  built 
using  FORTRAN  77  and  the  SLAM  simulation  language.  This 
model  allows  engagements  of  144  aircraft.  Blue  aircraft 
operating  from  CAP  patterns  defend  against  Red  fighter- 
bombers  escorted  by  Red  fighters.  Only  two  types  of  air¬ 
craft  are  modeled:  the  McDonnell-Douglas  F-15  and  the  MIG 
23/27.  The  model  is  empirically  based  and  simulates  the 
physical  movement  of  the  aircraft,  radar  and  visual  detec 
tion,  and  employment  of  radar  and  heat-seeking  air-to-air 
missiles  and  aerial  cannon. 


A  MODEL  70  INVESTIGATE  LOSSES  AND  EXCHANGE  RATIOS 


IN  LARGE-SCALE  AIR-TO-AIR  ENGAGEMENTS 


1.  Introduction 


In  the  event  of  war  in  Central  Europe  between  the 
United  States  (US)  and  its  North  Atlantic  Treaty  Organiza¬ 
tion  (NATO)  allies  and  Russia  and  the  Warsaw  Pact  (WP), 
the  western  powers  would  be  outnumbered  in  all  conventional 
weapon  categories.  The  Warsaw  Pact  superiority  in  aircraft 
is  approximately  3:1  (Ref  4:143).  As  bad  as  this  number  is 
it  fails  to  reflect  the  actual  situation  if  aircraft  are 
apportioned  by  mission,  as  called  for  in  operational  plans, 
and  then  compared.  For  example,  NATO  has  approximately  100 
interceptor/air  superiority  aircraft  in  the  Central  Region. 
In  one  possible  scenario,  these  aircraft  could  face  a  total 
of  1000  to  1500  fighter-bombers,  escorting  air  superiority 
aircraft,  and  supporting  aircraft  such  as  jammers  and 
reconnaissance  platforms.  This  engagement  would  take  place 
over  a  period  of  three  to  five  hours,  with  the  attacking 
aircraft  in  one  or  two  waves.  This  could  lead  to  engage¬ 
ments  involving  large  numbers  of  aircraft  on  both  sides. 

Our  knowledge  of  the  outcome  of  such  an  engagement  is  at 
best  an  educated  guess,  because  no  actual  engagements  of 
this  size  involving  firct-lino  weapon  systems  have  taken 
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place  nor  does  adequate  technology  exist  for  Investigating 
the  outcome  by  simulation  or  analytical  means.  The  few 
instances  of  employment  of  modern  air-to-air  weapons  served 
mainly  to  confirm  the  deadlines  of  current  air-to-air 
missiles  (Ref  12:49). 

This  lack  of  confidence  in  our  knowledge  of  the  out 
come  of  large  engagements  has  undesirable  effects.  We 
depend  on  the  technological  superiority  of  our  aircraft  and 
weapons  and  the  skill  of  our  pilots  to  offset  the  numerical 
advantage  of  the  Warsaw  Pact.  This  implies  our  pilots  will 
have  to  prevail  against  odds  as  steep  as  15:1.  If  we  have 
no  clear  idea  of  the  outcome  of  such  engagements,  we  can 
have  little  confidence  in  our  force  sizing  requirements. 

As  matters  currently  stand,  we  have  no  tools  available  with 
which  to  investigate  this  particular  situation.  Therefore, 
the  decision  was  made  to  attempt  a  solution  to  this  problem, 


Problem  Statement 

A  suitable  method  for  direct  investigation  of  the 
results  of  large-scale  air-to-air  engagements  does  not 
exist.  Deleterous  effects  of  this  deficiency  are  many, 
ranging  from  low  confidence  in  force  sizing  decisions  to 
lack  of  suitable  input  for  theater  and  higher  level  cam¬ 
paign  models.  With  no  suitable  investigative  tools  avail¬ 
able,  analysts  and  decision  makers  are  forced  to  rely  on  in¬ 
tuition,  experience,  and  extrapolation  from  small-scale 


examples . 


Research  Question 

Vhat  would  be  the  results  of  an  air-to-air  engage¬ 
ment  between  large  numbers  of  front-line  fighters  of  the 
Warsaw  Pact  and  NATO  in  a  Central  European  scenario? 
Specifically: 

1.  Are  large-scale  air-to-air  engagements  quali¬ 
tatively  different  from  smaller  engagements  as  shown  by  the 
exchange  ratios  from  such  engagements? 

2.  Do  the  exchange  ratios  approach  those  necessary 
to  prevail  against  the  current  Warsaw  Pact  forces? 

3.  How  does  the  exchange  ratio  vary  as  a  result  of 
changing  the  ratio  of  aircraft  involved? 

Objectives 

The  primary  objective  of  this  research  is  to  con¬ 
struct  a  suitable  model  with  which  to  investigate  these 
questions.  Major  factors  in  accomplishing  this  were  deci¬ 
sions  about  which  elements  of  the  air-to-air  engagement 
process  to  Include  in  the  model  and  at  what  level  of  detail. 
Every  effort  was  made  to  remove  factors  not  directly  influ¬ 
encing  the  outcome  of  the  engagement.  Factors  included  in 
the  model  were  modeled  as  simply  as  possible  and  aggregated 
as  much  as  possible.  The  desired  outcome  of  this  process 


was  a  model  which  preserved  the  interactions  relevant  to  the 
outcome  of  the  engagement  and  which  also  ran  economically 


enough  on  the  computer  to  allow  extensive  investigation  of 
the  research  questions. 


Scope 

I  *  This  research  Is  aimed  solely  at  the  air-to-air 

engagement  portion  of  a  conflict  involving  first-line 
Soviet  fighter-bombers  escorted  by  first-line  Soviet 
!  fighters  being  engaged  by  first-line  US  air  superiority  air¬ 

craft.  Outside  activities  which  affected  the  conduct  of  the 
engagement  were  modeled  to  the  extent  necessary  to  capture 
any  influence  on  the  outcome  of  the  engagement.  The  engage¬ 
ments  essentially  took  place  in  a  vacuum,  with  the  results 
determined  only  by  the  actions  of  the  participants.  How- 
^  ^  ever,  their  freedom  to  maneuver  was  not  restricted  in  any 

way  other  than  limitations  imposed  by  physical  constraints. 

I  Assumptions  and  Limitations 

Only  two  types  of  aircraft  are  represented  in  this 
model.  The  US/NATO  air  superiority  aircraft  ("Blue"  fighter) 
!  has  the  characteristics  and  performance  of  the  F-15.  The 

Russian/Warsaw  Pact  ("Red"  fighter)  fighter-bombers  and 
escorting  fighters  are  represented  by  the  MIG-27  and  MIG-23, 
which  are  essentially  the  same  aircraft  in  two  different 
configurations,  one  with  air-to-surf ace  weapons  and  the 
other  with  air-to-air  missiles.  This  was  deemed  appropriate 


for  two  reasons.  First,  these  aircraft  are  the  most 
advanced  aircraft  on  either  side  in  their  assigned  roles. 


Therefore,  this  provides  a  vorst-case  situation  for  both 
sides,  in  that  they  always  do  better  if  confronted  with 
any  other  aircraft.  Secondly,  other  aircraft  which  might 
be  included  are  assigned  other  missions  by  their  opera¬ 
tional  plans.  This  refers  specifically  to  the  F-16  which 
has  ground  attack  as  its  primary  role  in  this  scenario. 

The  decision  to  include  only  these  aircraft  was  felt  to  be 
necessary  to  keep  the  model  to  a  workable  size.  The  number 
of  aircraft  of  both  types  was  arbitrarily  set  at  24  Blue 
and  120  Red.  These  numbers  are  sufficient  to  give  the 
desired  engagement  sizes  and  force  ratios. 

Other  limitations  include  the  lack  of  any  provision 
for  Electronic  Countermeasures  (ECM) ,  communications  jam¬ 
ming,  or  weather  effects  such  as  restrictions  to  visibility 
All  engagements  occur  during  daylight  and  in  clear  weather. 
Terrain  and  earth  curvature  are  not  modeled.  The  engage¬ 
ment  is  three  dimensional  over  a  flat  surface.  Boundaries 
are  not  explicitly  defined.  Action  is  constrained  only  by 
the  location  of  the  ground  targets,  airbases.  Combat  Air 
Patrol  (CAP)  points,  aircraft  limitations,  and  the  assigned 
aircraft  missions. 

Radar  search  is  modeled  at  an  aggregated  level. 
Targets  within  the  limits  of  an  airborne  aircraft's  radar 
search  pattern  are  tested  against  a  simple  probability  of 
detection  function  based  on  range,  target  size,  and  radar 


type.  Visual  detection  likewise  is  aggregated  and  based  on 
range,  target  size,  relative  position,  and  aspect. 

Weapon  probability  of  kill  is  also  based  on  com¬ 
parison  with  a  random  draw.  This  includes  all  effects  such 
as  reliability  of  the  missile  and  warhead  effects.  No  par- 
tial  damage  is  allowed.  The  result  of  weapon  employment  is 
either  complete  survival  or  kill.  This  simplifying  assump¬ 
tion  is  based  on  the  fact  that  no  method  exists  for  quanti¬ 
fying  degradation  of  system  operation  following  damage  by 
warheads  or  bullets.  Also,  an  aircraft  damaged  by  air-to- 
air  missiles  or  gunfire  would  in  all  probability  return  to 
base  and  be  lost  to  the  engagement.  This  is  also  con¬ 
sistent  with  the  research  objective  of  investigating  losses 
and  exchange  ratios  on  an  engagement  basis.  This  assumption 
was  used  in  the  AMRAAM  QUE  and  is  used  in  the  PACAM  model. 

Systems  reliability  is  assumed  to  be  100  percent 
unless  explicitly  modeled  otherwise.  That  is,  all  systems 
are  assumed  to  operate  in  their  designed  manner.  Communica¬ 
tions  are  assumed  to  be  100  percent  effective  where  employed 
Resources  such  as  air  bases  and  ground  targets  are  merely 
reference  points  and  have  no  bearing  on  the  outcome  of  the 
model.  Ground  defenses  are  not  included  in  this  model. 

Structural  Model 

Action  takes  place  in  the  three-dimensional  volume 
over  a  flat  surface.  There  are  no  explicit  limits  to  this 
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surface  or  volume.  Position  and  motion  are  recorded  In 
terms  of  a  right-hand  orthogonal  set  of  axes,  oriented  so 
that  motion  in  the  "north."  "east."  and  "down"  directions 
is  positive.  Viewed  from  above,  angular  motion  in  a  counter¬ 
clockwise  direction  is. positive,  as  is  angular  motion  toward 
the  "ground”  (see  Figure  1). 

Red  aircraft  depart  their  bases  on  low-level  nagi- 
gation  and  ground  attack  missions  in  groups  of  20  to  40 
aircraft.  These  fighter-bombers  may  be  escorted  by  any 
number  of  Red  fighters  (up  to  the  total  number  of  Red  air¬ 
craft  available).  If  not  detected,  they  complete  a  pre- 
planned  route  and  return  to  their  base.  Blue  aircraft  may 
be  stationed  in  Combat  Air  Patrol  (CAP)  patterns,  which 
are  10  to  12  NM  long  holding  patterns  some  20  NM  east  of 
the  Blue  base.  The  CAP  altitude  is  20,000  feet  and  any 
number  of  flights  may  be  placed  in  the  CAPs.  Blue  aircraft 
may  also  be  launched  from  their  base  to  any  desired  point. 

In  all  cases.  Blue  aircraft  maintain  radar  and 
visual  search,  and,  if  they  detect  Red  aircraft  within  their 
areas  of  responsibility,  they  attack  them  using  tactics 
based  on  the  two-aircraft  element  as  the  basic  fighting 
unit.  Red  fighter-bombers  generally  maintain  their  forma¬ 
tion  and  course.  The  exceptions  are  self-defense  in 
response  to  an  attack  on  an  individual  aircraft  and  missile 
shots  of  opportunity  which  can  be  taken  without  breaking 
formation.  These  would  normally  occur  when  a  Blue  fighter 
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blundered  into  a  fighter-bomber  formation  during  an  attack, 
Escorting  Red  fighters  rely  on  four-ship  tactics  which 
attempt  to  bring  an  opponent  under  attack  from  different 
directions  at  the  same  time,  enhancing  probabilities  of  an 
unobserved  shot. 

For  all  aircraft,  fuel  is  explicitly  modeled  and 
upon  reaching  predetermined  low  fuel  state  ("Bingo"),  the 
aircraft  will  attempt  to  disengage  and  go  home.  Aircraft 
can  be  lost  to  fuel  starvation. 

Operating  within  this  framework.  Red  forces  mount 
offensive  missions  and  Blue  forces  respond  when  Red  comes 
within  predefined  areas  of  responsibility.  Blue  aircraft 
maintain  their  orbits  and  if  they  detect  Red  aircraft  they 
attack  them.  If  no  Red  targets  appear,  the  Blue  fighters 
would  stay  in  their  assigned  area  until  reaching  low  fuel 
state  and  return  home. 


Summary 


This  chapter  gave  an  introduction  to  the  problem 


and  laid  out  the  research  to  be  conducted.  The  structural 
model  was  presented  and  its  operation  described.  Subse¬ 
quent  chapters  will  expand  the  various  elements  of  the 
problem,  the  simulation  model,  and  the  results  of  the 


research  . 
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II.  The  Model 


Problem  Structure 

The  area  of  th£  world  most  likely  to  produce  the 
type  of  engagement  postulated  in  the  problem  statement  is 
the  central  region  of  Western  Europe,  which  for  US  and  NATO 
defense  purposes  comprises  the  center  third  of  West  Germany 
The  geopolitical  characteristics  of  that  region  were  used 
in  forming  the  broad  outlines  of  the  structural  model.  The 
characteristics  of  the  aircraft  used  in  the  model,  as  men¬ 
tioned  earlier,  were  based  on  the  F-15  and  the  MIG-23/27. 
The  performance  characteristics  of  these  aircraft  and  their 
associated  avionics  and  weapons  systems  are  also  incorpo¬ 
rated  into  the  model.  The  tactics  used  by  both  sides  were 
designed  to  take  advantage  of  the  strengths  of  the  weapons 
system  and  exploit  any  weaknesses  in  the  opponent.  The 
command  and  control  structure  of  each  side  evolved  from 
radically  different  philosophies,  the  Soviet/Warsaw  Pact 
system  being  highly  directive  in  nature  and  centralized, 
while  the  NATO  version  functions  more  as  an  allocation  sys¬ 
tem.  All  these  areas  are  felt  to  be  of  major  importance  in 
the  model  and  are  discussed  more  fully  in  this  chapter. 
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Representative  Environment 
Western  Europe 


Western  Europe  is  the  only  location  where  the  US 
and  Russia  directly  confront  each  other  with  large  conven¬ 
tional  forces.  Both  countries  have  declared  that  vital 
national  interests  are  at  stake  there,  so  it  appears  that 
the  greatest  change  of  a  large-scale  conflict  is  also  there 
This  is  not  to  disparage  the  possibility  of  such  a  confron¬ 
tation  elsewhere  and  any  conclusions  drawn  from  study  of 
such  a  scenario  should  be  applicable  to  other  situations 
where  similar  forces  are  engaged.  Due  to  the  concentration 
of  forces,  however,  Western  Europe  appears  to  represent  a 
"worst  case"  scenario  and  as  such  was  used  as  the  basis  for 
this  study. 

The  Warsaw  Pact  situation  is  very  simple  and  quite 
imposing.  Numerous  airfields  are  located  in  East  Germany 
and  Czechoslovakia,  the  countries  facing  NATO's  Central 
Region,  starting  very  close  to  the  border  and  continuing 
eastward.  There  are  numerous  satellite  fields,  dispersal 
bases,  prepared  forward  operating  locations,  and  other  such 
sites  which  give  the  Warsaw  Pact  the  ability  to  disperse 
assets  and  also  move  in  reinforcements  from  rear  areas, 
thus  bringing  their  considerable  numerical  superiority  to 
bear  on  NATO.  These  aircraft  are  supported  by  one  of  the 
most  dense  radar  surveillance  nets  in  existence  and  con¬ 


trolled  by  a  corresponding  communications  net.  The 


overlapping  and  redundant  radar  coverage  gives  the  direc¬ 
tors  of  the  Warsaw  Fact  air  forces  a  clear  picture  of  what 
is  happening  in  the  air  far  across  West  Germany.  This 
system  is  the  basis  for  assuming  reasonable  command  and 
control  will  be  available  to  the  Warsaw  Pact  air  forces, 
even  on  attacks  deep  into  NATO  territory.  For  instance, 
aircraft  overhead  US  bases  near  the  Luxembourg-West  German 
border  will  be  clearly  visible  on  radar  if  they  are  above 
10,000  feet  altitude.  This  is  approximately  100  nautical 
miles  (NM)  from  the  nearest  Warsaw  Pact  radar. 

NATO  and  US  forces,  on  the  other  hand,  are  hemmed 
in  by  geography.  West  Germany  is  only  100  NM  wide  through 
much  of  the  Central  Region,  with  many  lucrative  targets 
located  much  closer  to  the  border.  This  means  decreased 
warning  times  and  time  for  interception  of  hostile  forces 
once  they  enter  NATO  airspace.  To  complicate  matters  fur¬ 
ther,  NATO's  tactical  radar  net  is  not  nearly  as  exten¬ 
sive  as  the  Warsaw  Pact's,  which  leaves  it  vulnerable  to 
being  destroyed  or  badly  degraded  by  a  few  strikes.  There¬ 
fore,  NATO’s  battle  management  information  and  consequent 
command  and  control  may  suffer. 

NATO  allocates  the  aircraft  under  its  control  to 
various  missions.  These  missions  and  allocations  are  based 
on  an  assessment  of  the  shape  an  attack  by  Warsaw  Pact 
forces  would  take.  Thus,  a  total  of  some  11,000  tactical 
aircraft  available  on  both  sides  would  not  mean  an  air 
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battle  with  this  number  of  aircraft,  because  the  aircraft 
will  be  flying  different  missions.  For  instance,  in  NATO, 
the  75  F-15s  at  Bitburg  Air  Base  have  almost  sole  respon¬ 
sibility  for  air  superiority  in  the  central  region.  Other 
tactical  aircraft  in  the  central  region  are  primarily 
assigned  ground  attack  or  interdiction  missions  in  support 
of  ground  forces  and  their  contribution  to  the  air  superi¬ 
ority  effort  would  be  incidental. 

On  the  other  side,  most  NATO  plans  presuppose  a 
massive  Warsaw  Fact  interdiction  effort  against  selected 
classes  of  targets  inside  West  Germany  along  with  sorties 
flown  in  support  of  ground  forces.  Most  estimates  call  for 
1500  to  2500  aircraft  to  attack  in  two  waves,  the  first 
punching  corridors  in  the  NATO  surface-to-air  (SAM)  defenses 
and  the  second  fanning  out  to  attack  airfields,  munitions 
storage,  command  posts,  and  similar  militarily  lucrative 
targets.  Thus  it  can  be  seen  that  engagements  or  series  of 
engagements  involving  over  1000  tactical  aircraft  in  the 
space  of  some  two  hours  might  be  a  very  real  possibility. 
Actual  engagements  would  probably  be  smaller  but  would  still 
involve  over  100  aircraft.  This  was  the  actual  setting  from 
which  the  research  problem  was  structured. 

Aircraft  Performance  and 
Charac  ter  is  t ic  s 

Only  two  types  of  aircraft,  one  on  the  NATO  side 
and  one  from  the  Warsaw  Pact,  are  used.  The  NATO  aircraft 
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considered  is  the  F-15,  because  it  bears  the  brunt  of  the 
defensive  air-to-air  mission  for  NATO  in  the  Central 
Region.  The  Warsaw  Pact  aircraft  is  the  MIG-23  Flogger 
and  its  ground  attack  variant  the  MIG-27.  The  major  dif¬ 
ference  between  the  MIG.-23  and  MIG-27  is  the  lack  of  air- 
to-air  radar  in  the  MIG-27,  engine  inlet  geometry  which 
limits  the  MIG-27  to  a  lower  top  speed,  and  the  weapons 
carried  by  each  aircraft. 

Before  describing  the  performance  of  each  aircraft, 
it  is  necessary  to  understand  which  measures  of  performance 
are  important  in  an  aerial  engagement  of  this  type.  Air¬ 
craft  performance  is  important,  but  it  cannot  be  looked  at 
in  isolation  from  such  factors  as  weapon  capabilities  and 
command  and  control  structure.  The  most  common  criterion 
is  airspeed,  and  a  certain  amount  of  airspeed  is  desirable. 
However,  results  from  Southeast  Asia  and  the  Middle  East 
suggest  that  most  engagements  take  place  at  speeds  less 
than  the  speed  of  sound,  although  aircraft  may  enter  the 
engagement  at  higher  speeds.  Higher  airspeeds,  particularly 
above  the  speed  of  sound,  mean  reduced  maneuverability, 
because  turn  rate  and  radius  are  functions  of  true  airspeed 
and  the  force  supplied  by  the  flight  controls.  The  amount 
of  force  available  is  limited  at  higher  speeds  by  what  the 
structure  of  the  aircraft  can  withstand,  so  the  greater  the 
speed,  the  slower  the  turn  rate  and  the  larger  the  radius 
of  turn.  This  maneuverability  is  important,  because  to 


shoot  down  another  aircraft  It  Is  necessary  to  point  your 
aircraft  at  him  or  in  his  near  vicinity,  depending  on  the 
weapon  being  employed.  This  either  brings  the  target  air¬ 
craft  into  a  missile's  field  of  view  or  gives  the  shooter 
the  proper  lead  angle  Lor  a  gun  shot.  As  the  range  between 
two  aircraft  decreases,  angular  rates  of  motion  between  them 
increase  for  given  airspeeds.  Thus,  the  ability  to  turn 
the  aircraft  in  effect  becomes  the  ability  to  employ  weapons 
in  a  maneuvering  environment. 

Maneuvering  capability  in  turn  is  tied  to  the  power 
available,  generally  described  by  thrust-to-weight  ratio 
or  pounds  of  thrust  per  pound  of  aircraft  weight.  When  an 
aircraft  turns,  it  creates  additional  aerodynamic  drag. 

If  it  does  not  have  enough  power  available  to  compensate 
for  this  additional  drag,  it  loses  airspeed,  which  means 
less  maneuvering  capability  and  greater  vulnerability  to 
other  fighters.  This  points  out  another  valuable  perform¬ 
ance  characteristic:  acceleration,  or  the  ability  to  gain 
or  lose  airspeed  quickly.  It  may  be  advantageous  to  run 
into  an  engagement  at  a  high  speed  for  surprise  and  to  cut 
down  reaction  time  for  the  opponent.  Once  in  the  engage¬ 
ment  it  may  be  necessary  to  slow  down  to  make  a  quick,  tight 
turn  to  employ  weapons.  After  doing  this  it  is  necessary 
to  regain  airspeed  quickly  to  have  maneuvering  potential 
or  separate  from  the  engagement  and  avoid  being  a  "sitting 
duck"  caught  at  low  airspeed.  A  high  thrust-to-weight  ratio 


also  provides  acceleration  capability.  Modern  air  superi¬ 
ority  fighters  generally  have  thrust-to-we ight  ratios  of 
.9  to  1.1  or  better.  For  comparison,  Korean  War  jets  had 
thrust-to-welght  ratios  of  0.5  to  0.6  and  Southeast  Asia 
fighters  0.6  to  0.8. 

Of  course,  the  maneuverability  must  be  balanced 
against  other  requirements.  To  destroy  the  opponent  he 
must  be  found,  which  for  all  air  superiority  fighters  means 
radar.  A  high-performance  search  radar  normally  requires  a 
large  antenna.  If  long  range  or  endurance  is  required  it 
also  means  a  large  fuel  load.  These  two  factors  drive  up 
aircraft  size,  size  means  weight,  which  requires  larger 
engines  to  power  it,  which  means  more  weight  and  size, 
etc.  A  balance  must  be  struck  among  all  these  factors 
based  on  mission  requirements. 

With  this  brief  explanation  of  fighter  performance 
characteristics  in  mind,  let  us  compare  the  two  aircraft. 

The  F-15  is  a  large,  single  seat,  twin-engined  air 
superiority  fighter.  At  combat  gross  weights  its  thrust- 
to-weight  ratio  varies  between  0.9  and  1.1.  At  best, 
maneuvering  speed  of  Mach  0.9  it  can  sustain  turns  of  13/ 
second  and  achieve  instantaneous  rates  in  excess  of  20/ 
second.  The  pulse  doppler  radar  can  detect  fighter  sized 
targets  to  45  NM  and  is  practically  unaffected  by  ground 
clutter,  so  that  it  has  the  ability  to  detect  targets 
"looking  down"  at  them.  The  radar  search  and  track  limits 
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are  60  left  and  right  of  and  60  above  and  below  the  fuse¬ 
lage  center  line.  It  is  armed  with  four  semi-active  radar 
guided  missiles,  four  heat-seeking  missiles,  and  a  20  mm 
cannon,  which  fires  at  100  rounds  per  second  and  has  nine 
seconds'  ammunition  available.  It  carries  enough  fuel  for 
approximately  1.0  to  1.5  hours  of  flight  in  the  scenarios 
described  in  this  paper,  depending  on  the  amount  of  maneuver 
ing  and  high  power  settings  required.  The  pilot  is  seated 
well  up  in  a  bubble  canopy,  giving  excellent  visibility  in 
all  quadrants  above  the  wing. 

The  MXG-23/27  is  a  medium  sized,  single  seat, 
single  engine  fighter  with  a  thrus t-to-we ight  ratio  of  0.8 
to  1.0.  It  can  sustain  8  to  10/second  turn  rates  and 
achieve  16/second  instantaneously.  Its  best  maneuvering 
speed  is  also  Mach  0.9.  The  MIG-23  air-to-air  fighter's 
radar  has  limits  of  45  left  and  right  of  and  20  above  and 
below  the  fuselage  center  line.  The  radar  has  a  limited 
look-down  capability  at  medium  and  high  altitudes.  Search 
range  is  about  40  NM  on  fighter  sized  targets  and  tracking 
range  is  about  25  NM.  It  is  armed  with  two  large  air-to- 
air  missiles  (APEX)  which  may  have  either  radar  or  IR 
seekers  and  two  to  four  smaller  IR  missiles  (APHID  or  ATOLL) 
A  23  mm  cannon  with  6  seconds'  ammunition  is  installed. 

The  MIG-27  fighter-bomber  has  no  radar  and  carries  bombs 
or  air-to-surf ace  munitions  instead  of  missiles,  although 
two  IR  missiles  may  be  carried  for  self  defense.  Both 
aircraft  have  restricted  visibility  aft  or  the  cockpit. 
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The  aircraft  have  an  excellent  acceleration  capability, 
better  than  thrust-to-weight  figures  might  indicate, 
because  of  their  clean  aerodynamic  design.  For  those 
familiar  with  US  aircraft,  the  MIG-23/27  are  similar  in 
performance  to  the  F-l^,  or  one  generation  behind  the  F-15. 

Weapon  Performance  and 
Characteristics 

The  advent  of  reliable,  capable  air-to-air  missiles 
has  wrought  a  revolution  in  aerial  combat.  No  longer  must 
a  pilot  close  to  within  hundreds  of  feet  of  an  adversary 
and  maneuver  his  aircraft  into  a  small  cone  behind  him  to 
enable  him  to  hold  his  guns  on  the  opponent  long  enough  to 
fire  sufficient  bullets  to  destroy  him.  Modern  missiles 
have  sufficient  maneuverability  to  deal  with  most  evasive 
maneuvers.  Radar  guided  missiles  can  be  launched  at  ranges 
much  greater  than  10  NM  from  the  target.  These  missile 
capabilities  combined  with  aircraft  speeds  and  long  range 
radar  mean  the  combat  arena  has  expanded  enormously. 

Such  a  radical  change  also  implies  that  it  might 
be  necessary  to  reexamine  tactics,  performance,  and  pilot 
skills  to  see  if  current  versions  are  all  still  applicable. 
Most  radar  guided  air-to-air  missiles  in  current  use  are 
semi-active.  This  means  they  have  a  radar  receiver  but  no 
transmitter,  and  pick  up  radar  signals  transmitted  by  the 
aircraft  and  reflected  from  the  target.  This  requires  the 
fighter  to  lock  on  to  a  single  target  and  remain  locked  on 
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to  it  until  the  missile  impacts  in  order  to  provide 
"illumination"  for  the  missile.  If  the  radar  lock  is  lost 
the  missile  will  go  ballistic  and  not  track  the  target. 
Radar  missiles  are  relatively  slow,  and  times  of  flight 
for  launches  from  the  front  quarter,  such  as  would  be 
expected  at  the  beginning  of  an  engagement,  would  be  from 
20  to  40  seconds.  Even  though  the  missile  is  launched  many 
miles  away,  the  flight  time  and  the  requirement  for  the 
fighter  to  maintain  radar  lock,  which  means  the  angular 
tracking  limits  of  the  radar  cannot  be  exceeded,  tend  to 
"drag"  the  fighter  to  the  target.  Typically,  the  fighter 
is  only  2  to  3  NM  from  the  target  when  the  missile  impacts, 
or  close  enough  to  be  readily  seen  by  any  other  aircraft  in 
the  vicinity. 

Radar  missiles,  then,  offer  the  ability  to  attack 
from  long  range  and  are  unaffected  by  weather.  They  are 
susceptible  to  countermeasures  such  as  deceptive  jamming. 

A  properly-timed  maneuver  of  5  Gs  or  more  by  the  target 
may  cause  the  missile  to  pass  outside  the  effective  war¬ 
head  radius.  These  missiles  are  all  aspect,  meaning  they 
can  be  launched  from  any  position  relative  to  the  target, 
but  a  problem  area  exists  in  the  beam,  or  from  70°  to  110° 
off  the  target's  nose.  The  missile  "sees”  relative  velocity 
and  in  the  beam  the  missile's  velocity  relative  to  the 
target  is  the  same  as  its  velocity  relative  to  the  ground. 
Therefore,  if  the  missile  approaches  from  the  beam  and 


ground  returns  are  present  in  the  missile's  field  of  view, 
as  they  would  be  if  the  missile  were  above  the  target,  the 
missile  is  likely  to  transfer  lock  to  the  ground  and  be 
lost.  This  does  cot  occur  if  the  missile  approaches  from 
below  the  target  or  from  the  nose  or  tail  if  above  the  tar- 
get.  Even  with  these  shortcomings,  radar  missiles  are  given 
a  very  high  PK,  or  probability  of  kill.  The  US  expects 
0.75,  or  three  out  of  four,  of  its  radar  missiles  to  do  the 
job  (Ref  9).  Not  as  much  is  known  about  the  Russian  APEX 
missile,  but  a  PR  of  0.4  is  not  unreasonable  (Ref  6). 

The  greatest  change  in  air-to-air  missiles  has  come 
about  in  heat-seeking  infrared  (IR)  missiles.  These  missiles 
guide  on  the  IR  radiation  produced  by  the  engines.  Until 
the  recent  acquisition  of  the  AIM-9L,  these  missiles  were 
limited  in  employment  to  a  cone  roughly  30°  to  45°  around  a 
target's  tail.  The  AIM-9L  is  an  all-aspect  missile.  Its 
cooled  detector  is  sensitive  enough  to  track  the  IR  emis¬ 
sions  from  any  relative  position.  This  ability,  plus 
improved  maneuvering  capability,  make  it  an  extremely  lethal 
missile  (24  hits  for  27  launches  in  the  Falkland  Islands 
War)  (Ref  5).  Russian  missiles  do  not  have  this  capability 
yet  and  are  still  restricted  to  the  stern  area  for  launch. 

All  IR  missiles  are  "launch  and  leave"  or  "fire  and 
forget."  The  missile  is  autonomous  after  launch,  tracking 
and  homing  on  the  target  at  which  it  was  directed.  IR 
missiles  are  typically  shorter  range  and  faster  than  radar 
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missiles,  with  launch  ranges  being  1  to  3  NM  and  flight 
times  of  6  to  12  seconds.  IR  missiles  are  subject  to 
countermeasures  such  as  flares,  but  the  release  of  these 
must  be  properly  timed  and  the  missile’s  short  time  of 
flight  does  not  allow  much  reaction  time.  Earlier  ver¬ 
sions  could  be  defeated  by  a  hard  turn  as  the  missile 
approached  intercept,  but  tests  have  shown  that  turns  up 
to  10  G  intensity  are  not  enough  to  move  the  all-aspect 
version  outside  lethal  warhead  range.  For  practical  pur¬ 
poses  the  all-aspect  IR  missile  cannot  be  aerodynamically 
outmaneuvered  by  present  aircraft  once  it  is  launched 
(Ref  11). 

Both  the  F-15  and  MIG-23/27  carry  an  internally 
mounted  cannon  with  a  high  rate  of  fire.  Effective  ranges 
with  current  sights  and  flight  controls  in  a  maneuvering 
environment  are  limited  to  roughly  2000  feet.  A  computing 
gunsight  indicates  to  the  pilot  where  the  airplane  must  be 
pointed  in  order  for  the  bullets  to  strike  the  target. 

Once  this  position  is  achieved  the  high  rate  of  fire  makes 
it  possible  to  fire  enough  rounds  in  a  very  short  time 
(1  to  2  seconds)  to  achieve  a  reasonable  PK .  Probabilities 


of  kill  are  highest  in  the  stern  where  it  is  possible  to 
achieve  controlled  position  and  stable  tracking,  and  lowest 
in  the  front  where  closing  velocities  are  highest. 


Tact ics 


Tactics  are  designed  to  make  use  of  the  capabili¬ 
ties  of  possessed  equipment  and  exploit  known  weaknesses  in 
an  opponent.  US  tactics  assume  numerical  inferiority, 
limited  to  nonexistent  'command  and  control  and  radar  assist¬ 
ance,  the  two-ship  element  as  the  basic  fighting  unit,  and 
allow  relative  freedom  to  the  flight  leader  to  choose  tac¬ 
tics  (Ref  1).  The  Warsaw  Pact  strives  for  tactical  numeri¬ 
cal  superiority,  employs  four  aircraft  as  the  basic  fight¬ 
ing  unit,  tries  to  use  set-piece  tactics,  and  relies 
heavily  on  radar  and  radio  guidance  (Ref  15)  . 

Each  US  pilot  is  expected  to  make  full  use  of  his 
aircraft  as  a  weapon  system.  There  is  none  of  the  wingman- 
leader  relationship  common  in  World  War  II  and  Korea  where 
the  wing  man  is  solely  respor  ible  for  protecting  the 
leader.  There  are  simply  not  enough  aircraft  not  to  use 
each  to  the  fullest.  The  tactics  that  evolved  envision 
the  element  working  as  a  coordinated  pair,  supporting  each 
other,  and  doing  as  much  damage  as  possible  while  sur¬ 
viving.  The  pilot  expects  to  detect  an  opponent  at  least 
30  to  40  NM  away,  which  will  allow  him  to  decide  the  type 
tactics  he  wants  to  employ  and  execute  the  initial  inter¬ 
cept  and  attack  as  he  desires.  At  longer  ranges  an  alti¬ 
tude  offset  of  5,000  feet  to  10,000  feet  is  taken  above  or 
below  the  target.  This  helps  to  prevent  or  delay  acquisi¬ 
tion  of  the  fighter  by  the  target  aircraft.  It  is 
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relatively  easy  to  do  because  target  Information  such  as 
altitude,  airspeed,  and  heading  is  displayed  on  the  radar 
scope.  The  flight  will  turn  to  a  course  which  will  reach 
the  targets  as  quickly  as  possible  and  accelerate  to  an 
airspeed  of  Mach  0.9  to  1.2  depending  on  the  leader's 
preferences  and  the  time  available.  As  the  flight  closes 
within  tactical  missile  range  the  pilots  will  attempt  to 
launch  radar  missiles  at  different  aircraft  to  start  the 
engagement  with  an  advantage.  As  they  close  with  the  tar¬ 
get  flight,  they  attempt  to  visually  pick  up  other  aircraft 
and  get  off  IR  missile  shots  and  snap  gun  shots.  Most 
Russian/Warsaw  Pact  formations  are  large  and  numerous  and  if 
a  pilot  enters  a  turning  engagement  with  a  single  aircraft, 
he  allows  the  other  aircraft  in  the  flight  the  opportunity 
to  maneuver  as  they  please  and  probably  get  shots  at  him. 
Therefore,  tactics  emphasize  early  shots,  causing  as  much 
disruption  as  possible,  keeping  airspeed  up,  and  avoiding 
getting  drawn  into  the  "dogfight"  type  engagement.  Rather, 
it  is  desired  to  go  through  the  formation  to  a  clear  area, 
turn  around,  and  reattack  if  possible.  A  rule  of  thumb  says 
don't  turn  more  than  90°  in  trying  to  get  a  shot  at  any  one 
target.  These  tactics  exploit  the  maneuverability  of  the 
aircraft  and  the  ability  of  its  avionics  to  give  a  fairly 
clear  picture  of  the  situation  before  entering  the  engage¬ 
ment. 


23 


Russian  tactics,  on  the  other  hand,  integrate  ground 
radar  guidance  to  position  the  four  aircraft  of  a  flight  so 
they  can  simultaneously  launch  four  radar  missiles  from  the 
nose  and  front  quarters  and  then  be  in  position  so  that  if 
the  initial  missile  atrack  fails,  the  fighters  will  be 
closing  from  different  parts  of  the  sky  and  at  least  one 
will  have  an  opportunity  to  launch  a  missile  no  matter  what 
way  the  opponent  turns.  This  would  negate  an  adversary's 
superior  maneuverability.  Alternatively,  an  element  might 
attempt  to  decoy  an  intercepting  fighter  by  turning  off  and 
"dragging"  him  in  front  of  a  second  element,  making  use  of 
the  good  speed  qualities  of  the  MIG-23.  This  would  be  aug¬ 
mented  by  using  ground  radar  for  direction  and  not  turning 
on  the  aircraft  radar  until  the  last  possible  moment  to 
avoid  warning  the  intended  target  (Ref  15). 

One  step  up  from  basic  employment  tactics,  the 
defending  fighters  want  to  concentrate  on  fighter-bombers 
carrying  air-to-sur f ace  munitions  and  avoid  enemy  fighters 
if  possible.  The  difficulty  in  this  is  determining  which 
is  which,  particularly  on  radar.  Confronted  with  a  large 
number  of  radar  contacts,  most  pilots  will  assume  the 
returns  at  the  lowest  altitude  are  the  fighter-bombers  and 
attack  them  first  if  possible.  However,  in  a  scenario  like 
this  one  a  pilot  cannot  pass  up  a  group  of  aircraft  without 
a  visual  identification,  so  he  must  attack  the  nearest  or 
first  group.  Defending  pilots  would  continue  their  attacks 


r 
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until  out  of  fuel  or  weapons.  The  attacking  fighter-bombers 
would  attempt  to  reach  their  target  if  at  all  possible.  If 
directly  threatened  by  an  attacking  fighter,  a  fighter- 
bomber  might  jettison  his  ordnance  and  turn  to  meet  the 
attack,  which  would  the^n  have  accomplished  its  purpose  of 
disrupting  the- f ighter-bomb er ' s  mission.  Escorting  fighters 
would  attempt  to  intercept  defending  fighters  and  prevent 
them  from  attacking  the  fighter-bombers. 

This  brief  outline  describes  the  actions  occurring 
at  the  basic  level  in  a  large  engagement.  Larger  engage¬ 
ments  are  generally  composed  of  bigger  numbers  of  aircraft 
attempting  to  do  the  same  basic  thing  and  using  the  infor¬ 
mation  available  to  them  from  visual  and  radar  search  and 
radio  communications  from  other  flight  members  and  agencies 
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with  overlapping  coverage,  controls  execution  down  to  the 
tactical  level  (Ref  15) . 


NATO  air  defense  in  the  Central  Region  has  a  cen¬ 
tral  command  center  which  gets  most  of  its  information  from 
a  few  fixed  and  several*  mobile  radar  units  and  from  the 


bases  where  air  defense  fighters  are  stationed.  The  command 
center  functions  mainly  as  an  allocation  filter,  assigning 
targets  to  surface-to-air  (SAM)  sites  and  airborne  fighters. 

The  command  center  also  orders  additional  fighters  launched 
to  replace  those  returning  to  base  or  in  response  to 
increased  pressure  from  enemy  fighters.  Directions  are 
passed  from  the  command  center  through  the  radar  sites  to 
pilots.  The  radar  controller  will  give  an  initial  heading 
for  an  intercept,  but  as  soon  as  the  pilot  has  radar  or 
visual  contact  with  the  target  and  can  complete  the  inter¬ 
cept  on  his  own,  the  controller  will  stop  giving  informa¬ 
tion  . 

When  the  pilot  reports  the  intercept  complete,  the 
controller  will  give  him  a  new  intercept  heading  to  another 
target  or  order  a  return  to  CAP  or  base,  depending  on  the 
situation.  This  normally  works  very  well,  because  the 
radar  in  the  aircraft  is  superior  to  the  radar  on  the 
ground  for  .intercept ,  although  ground  radar  has  much 
broader  coverage  and  can  form  a  better  overall  picture  of 
<  the  situation.  It  also  makes  a  virtue  of  necessity  because 

v  there  are  fewer  controllers  than  aircraft  and  one  1 


controller  must  handle  several  aircraft.  Because  there 
are  a  limited  number  of  radar  sites,  pilots  must  be  capable 
of  autonomous  operation  If  the  sites  are  knocked  out. 

The  Warsaw  Pact,  In  contrast,  has  a  multiply  redun¬ 
dant  radar  and  radio  ndt  which  allows  commanders  on  the 
ground  to  direct  aerial  forces  the  same  way  an  army  com¬ 
mander  directs  ground  troops.  Command  and  control  becomes 
an  offensive  weapon,  shifting  forces  to  concentrate  mass 
or  take  advantage  of  weaknesses  in  the  defense.  Each 
fighter  unit  has  its  own  radar  controllers,  who  in  many 
cases  are  squadron  pilots.  They  follow  the  action  on  radar 
and  direct  tactical  actions.  This  direction  may  be  as 
detailed  as  when  to  set  switches  and  launch  missiles.  This 
does  not  imply  that  the  individual  Warsaw  Pact  pilot  is 
incapable  of  action  on  his  own,  just  that  the  system  is 
extremely  centralized  in  all  regards. 

It  should  be  recognized  that  these  comments  apply 
only  at  this  time.  Systems  change  and  evolve.  NATO  is 
upgrading  its  radar  sites  and  communications  facilities. 
Russian  cadres  are  experimenting  with  "free  play"  aerial 
tactics.  The  effects  of  this  will  be  seen  in  the  near 
future. 


Conceptual  Model 


An  aerial  engagement  in  the  above  situation  would 


v 


operate  in  the  following  manner.  Hostile  Red  forces, 


located  soae  140  NM  from  Blue  forces,  attack  la  large  num¬ 
bers  from  several  bases  and  in  a  variety  of  formations. 

The  Blue  aerial  defensive  forces  attempt  to  destroy  as 
many  Red  aircraft  as  they  can  after  Red  aircraft  enter 
their  zones  of  responsibility.  They  do  not  have  to 
destroy  all  the  Red  aircraft  to  be  successful.  In  destroy¬ 
ing  some  aircraft  they  may  create  enough  confusion  and 
panic  to  cause  the  iest  to  abandon  their  mission  and  turn 
back.  The  "pilots"  of  the  aircraft  operate  according  to 
their  mission  and  information  they  receive  from  the  sources 
normally  available  to  them:  radar,  visual  lookout,  and 
radio  communication. 

Blue  aircraft  have  only  two  missions.  They  are 
launched  from  their  base  to  CAP  patterns  where  they  wait  to 
detect  Red  aircraft.  Blue  aircraft  may  also  be  launched 
from  their  base  directly  to  areas  of  increased  Red  activity 
If  they  detect  no  targets,  they  will  remain  in  a  CAP  or 
return  to  base.  If  they  detect  targets  which  meet  their 
commit  criteria,  they  will  attack  in  elements  of  two  air¬ 
craft.  If  they  reach  low  fuel  state  or  deplete  their 
weapons,  they  attempt  to  disengage  and  return  to  base. 

Red  aircraft  also  have  two  basic  missions.  The 
fighter-bombers  fly  a  preprogrammed  navigation  route  at  a 
fixed  altitude.  If  they  reach  their  target  they  deliver 
their  ordnance  and  return  to  base.  Fighter-bombers  have  a 
limited  self-defense  capability  but  would  only  take  shots 


at  Blue  aircraft  which  fly  closely  enough  in  front  of  them 
to  allow  a  shot  without  breaking  out  of  formation.  Fighter- 
bombers  may  also  react  defensively,  if  they  detect  an  attack 
by  turning  hard  into  it  and  jettison  their  ordnance  for 
greater  maneuverability.  If  the  aircraft  survives  the 
attack,  he  will  return  to  base. 

Red  fighters  also  fly  preprogrammed  routes  while 
searching  for  Blue  fighters.  they  may  escort  fighter- 
bombers  or  operate  Independently.  If  they  detect  Blue 
fighters,  they  attempt  to  engage  using  standard  Warsaw  Pact 
tactics.  If  attacked,  they  attempt  to  defend  themselves 
while  other  members  of  the  flight  position  for  attack. 

Upon  reaching  low  fuel  state  or  depleting  their  weapons, 
they  return  to  base. 

The  fundamental  premise  was  that  the  basic  elements 
of  the  process  were  not  very  complicated  or  even  very 
numerous,  as  seen  above.  On  the  Red  side,  formations  and 
tactics  tend  to  be  rigidly  prescribed,  so  that  whatever 
maneuver  is  selected  will  be  performed  in  the  same  manner 
and  with  the  same  parameters  by  any  flight.  There  will  be 
a  range  of  success  in  execution  based  on  time  available  to 


execute  the  maneuver,  target  reactions,  and  limits  imposed 
by  aircraft  performance. 

Blue  tactics  are  not  prescribed,  but  through  a 
process  of  trial  and  error  certain  preferred  tactics  have 
emerged.  These  emphasize  altitude  separation  between  the 


fighters  to  deny  or  delay  acquisition  by  the  target,  alti¬ 
tude  separation  between  the  fighters  and  the  targets,  and 
lateral  separation  between  the  fighters,  all  for  the  same 
reasons.  The  fighters  attempt  to  "sort"  the  target  forma¬ 
tion  on  radar  to  determine  target  numbers  and  location,  and 
pick  different  targets  for  radar  missile  launch  so  as  not 
to  shoot  at  the  same  target.  If  range  to  the  target  permits 
fighters  will  normally  try  to  offset  to  a  front-quarter 
position  rather  than  nose-on.  This  gives  a  slightly  higher 
PK  for  missiles  and  a  better  opportunity  to  visually  pick 
up  the  targets.  Pilots  hesitate  to  turn  very  far  to  get 
shots  at  targets  when  attacking  large  formations  because  of 
the  possibility  of  flying  in  front  of  a  hostile  aircraft  and 
allowing  it  a  shot.  With  the  short-range  capability 
afforded  by  all-aspect  IR  missiles,  a  pilot  can  follow  an 
initial  radar  shot  into  and  through  a  formation,  possibly 
getting  one  or  two  more  shots,  and  separating  to  a  clear 
area  where  he  can  turn  around  and  reattack.  Defensive  air 
superiority  pilots  are  primarily  interested  in  attacking 
fighter-bombers,  as  their  air-to-surf ace  ordnance  will  do 
the  most  damage  to  resources.  It  is  not  possible  to  iden¬ 
tify  them  on  radar,  but  if  a  group  of  targets  on  the  radar 
scope  represent  a  formation  of  hostile  aircraft,  pilots 
normally  assume  those  at  the  lowest  altitude  are  fighter- 
bombers  and  will  attack  them  initially.  Once  within  visual 
range,  visual  discrimination  is  sometimes  possible. 


However,  pilots  are  not  free  to  attack  fighter-bombers  and 


Ignore  fighters.  Neither  can  pilots  defending  an  area 
pass  up  radar  contacts  to  attack  other  contacts  at  lower 
altitude  on  the  assumption  the  first  contacts  were  fighters. 
Thus  It  can  be  seen  that  Blue  tactics  also  boll  down  to  a 
fairly  small  selection  of  maneuvers,  with  variations  in 
the  manner  and  ranges  at  which  they  are  executed. 

Aircraft  performance  is  modeled  at  an  aggregate 
level.  Aerodynamic  response  of  both  aircraft  is  well  enough 
documented  to  proceed  by  calling  for  a  maneuver  and  getting 
the  resultant  turn  rate,  constrained  by  aircraft  structural 
limits  and  airspeed.  Airspeed  is  then  adjusted  by  an 
appropriate  amount.  This  occurs  once  a  second,  so  air¬ 
craft  move  in  one-second  straight  paths. 

Model  Development 

The  Simulation  Language  for  Alternative  Modeling 
(SLAM)  was  used  in  developing  the  model,  but  it  cannot  be 
called  a  SLAM  model.  Only  the  file  structure  and  time 
advance  features  of  SLAM  were  used,  with  the  model  features 
coded  in  FORTRAN  77.  The  SLAM  language  was  chosen  because 
the  author  was  familiar  with  it  and  using  its  features 
avoided  having  to  code  the  many  ’’housekeeping"  details  of 
time  advance,  file  manipulation,  and  statistical  reporting. 


The  Model 


The  guiding  philosophy  in  this  model  was  simplicity 
wherever  possible.  If  it  was  not  relevant  and  important 
to  the  outcome,  dispense  with  it.  This  was  considered 
necessary  to  hold  coding  and  running  time  to  an  absolute 
minimum.  The  engagement  arena  was  modeled  as  a  three- 
dimensional  volume  above  a  flat  surface  (Figure  1).  A 
"Blue"  airbase  and  three  "Red"  airbases  are  located  approxi¬ 
mately  140  NM  apart.  The  dimensions  were  oriented  so  that 
movements  in  the  "north,"  "west,"  and  "down"  directions 
were  positive.  This  orientation  allows  headings  to  be 
Interpreted  in  the  same  manner  as  in  real  flight:  clockwise 
when  viewed  from  above  is  positive  and  ranges  from  0  to  360 
degrees.  Pitch  is  negative  above  the  horizontal  and  posi¬ 
tive  below  it.  All  dimensions  are  expressed  in  feet  and  all 
angles  in  radians.  Appendix  B  explains  the  mechanization 
of  each  of  the  features  of  the  model. 

Aircraft  motion  proceeds  as  turn  rate  in  both  hori¬ 
zontal  and  vertical  planes,  with  turn  rate  a  partial  func¬ 
tion  of  airspeed  and  limited  by  aircraft  structural  limits. 
Aircraft  velocity  is  maintained  as  a  unit  vector,  with  the 
magnitude  stored  separately.  Position  and  velocity  are 
updated  every  second.  Other  information  about  the  aircraft, 
such  as  fuel  load  and  fuel  flow,  weapons  load,  and  current 
activity  is  also  maintained  and  stored  in  aircraft  files. 
(See  Appendix  A  for  an  explanation  of  these  files.) 


Aircraft  are  assigned  certain  missions*  such  as  Combat  Air 
Patrol  (CAP)  or  low  level  navigation  and  ground  attack, 
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through  assignment  of  a  mission  code  which  directs  them  to 
the  appropriate  section  of  the  program.  This  mission  code, 
along  with  an  associated  activity  code,  causes  the  "air¬ 
craft"  to  perform  their  "mission"  as  time  is  advanced. 

Radar  detection  occurs  every  five  seconds.  This 
time  delay  attempts  to  portray  the  time  lag  involved  in  the 
radar  painting  the  returns  on  the  scope  and  the  pilot  inter 
preting  the  returns  and  making  a  decision  about  what  to  do. 
Further,  the  pilot  does  not  watch  the  radar  scope  continu¬ 
ously  but  divides  his  attention  between  it,  visual  search, 
and  monitoring  aircraft  performance.  A  line  of  sight  is 
calculated  from  the  fighter  to  each  airborne  target.  If 
the  target  is  within  the  angular  limits  of  the  radar,  it  is 
put  through  a  range  and  aspect  angle  filter  and  a  proba¬ 
bility  of  detection  filter.  If  it  passes  all  these  it  is 
considered  detected  and  is  stored  in  a  temporary  array. 
After  all  aircraft  have  been  checked,  the  closest  ten 
detected  targets  are  stored  in  a  radar  file  along  with  the 
total  number  of  threats. 

Visual  detection  occurs  in  much  the  same  manner. 

The  target  line  of  sight  and  elevation  angle  relative  to 
the  fighter's  flight  path  is  calculated  and  the  target  is 
placed  in  one  of  eight  sectors,  corresponding  roughly  to 
nose,  sides,  and  tail,  above  or  below  the  wing  line,  and  a 


probability  of  detection  assigned  based  on  sector  and 
range.  A  number  is  drawn  from  a  uniform  (0,1)  distribu¬ 
tion  and  compared  with  the  probability  of  detection.  If 
detected,  the  target  is  placed  in  a  temporary  array.  When 
finished,  the  ten  closest  targets  are  placed  in  a  visual 
threat  file  along  with  the  total  number  of  visual  threats. 
Targets  outside  10  NM  are  ignored  in  the  visual  search 
routine.  The  routine  schedules  itself  every  3  seconds. 

If  a  target  is  detected  on  radar,  the  fighter  will 
react  according  to  his  assigned  mission  and  the  range  of 
the  target.  For  example,  if  the  fighter  is  in  a  CAP  pat¬ 
tern,  he  will  engage  a  target  only  when  it  comes  within  a 
certain  predefined  range.  Otherwise  it  is  ignored.  When 
a  radar  target  meets  the  commit  criteria,  the  fighter's 
mission  code  is  changed  and  he  begins  an  intercept.  A 
decision  is  made  whether  to  attack  from  above  or  below  the 
target,  if  the  target's  altitude  and  range  allow  time  to  do 
this.  Otherwise  an  intercept  course  is  computed  and  the 
fighter  is  turned  toward  it.  When  the  fighter  is  within 
tactical  missile  range,  a  missile  is  "launched."  The 
missile  is  created  at  the  position  of  the  fighter  and  given 
an  appropriate  velocity  vector.  It  is  filed  in  a  radar  or 
heat  missile  file.  A  heat  missile  is  fired  in  preference 
to  a  radar  missile  because  it  doesn't  tie  the  fighter  up 
as  long.  If  a  radar  missile  is  launched,  the  fighter  must 
maintain  a  radar  lockon  until  the  missile  arrives  at  the 


target.  When  missiles  are  "launched"  the  operations  flag 
associated  with  the  mission  code  is  changed  to  reflect  this. 
The  missile  files  are  checked  and  updated  on  a  second-by- 
second  basis.  When  a  missile  reaches  its  point  of  closest 
approach  to  the  target,,  its  probability  of  kill  is  deter¬ 
mined.  For  a  radar  missile,  aspect  angle  and  fighter  radar 
lock-on  are  checked  before  computing  the  probability  of  kill. 
If  successful,  the  target  is  removed,  its  mission  code  is 
changed  to  reflect  the  method  of  its  destruction,  and  the 
time  of  kill  is  noted.  If  the  missile  does  not  kill  the 
target,  it  is  removed  at  the  end  of  its  flight  time. 

Fighters  can  also  make  gun  attacks  on  targets.  For 
a  gun  attack,  the  fighter  must  be  within  gun  range  (based 
on  target  aspect)  and  must  maintain  its  "nose"  on  the  tar¬ 
get  for  two  seconds.  If  this  is  done,  a  probability  of 
kill  is  calculated. 

Aircraft  fuel  is  monitored  and  if  the  aircraft  fall 
below  a  certain  state  they  are  routed  back  to  base  on  a 
fuel-saving  flight  profile. 

Summary 

The  empirical  basis  for  the  model  was  presented 
and  operation  of  the  various  sections  explained.  Chapter 
III  will  show  verification  of  the  operation  of  these  in  the 
model. 
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HI.  Verification  and  Validation 


The  term  verification  is  used  in  accordance  with 
Shannon's  writings  (Ref  16:29-30).  This  is  the  process  of 
insuring  the  model  performs  as  the  modeler  intended.  For 
this  model  it  was  mainly  a  case  of  checking  the  mechanical 
operation  of  the  various  parts,  as  explained  in  the  follow¬ 
ing  paragraphs.  Because  of  the  difficulties  encountered 
in  getting  the  model  to  work,  verification  is  only  par¬ 
tially  complete.  The  verification  print  statements  were 
left  in  the  model  to  aid  future  verification  efforts. 

Radar  Search 

An  aircraft  radar  searches  a  volume  of  space 
delimited  by  its  mechanical  design  and  its  detection  range. 
For  any  given  radar,  the  detection  range  is  mainly  a  func¬ 
tion  of  a  the  ratio  of  the  strength  of  the  returned  signal 
from  the  target  to  the  noise  or  clutter  level.  The  proba¬ 
bility  of  detection  of  a  target  can  be  represented  as  a  dis¬ 
tribution  based  on  range  (Ref  7:24-32).  Because  only  one 
type  of  aircraft  was  used  on  each  side,  only  one  distribu¬ 
tion  was  needed  for  each  radar  because  target  cross-section 
remained  the  same.  The  probability  of  detection  is  based 
on  the  radar  characteristics  of  the  target  and  is  a  func¬ 
tion  of  target  range.  When  the  radar  detection  subroutine 


is  called,  it  computes  the  range  and  the  angular  relation* 
ship  between  the  velocity  vector  and  the  line  of  sight  to 
each  hostile  aircraft  for  each  airborne,  radar-equipped 
aircraft.  If  the  line  of  sight  is  within  the  angular 
limits  of  the  radar,  the  probability  of  detection  for  that 
range  is  compared  against  a  uniform  (0,1)  number  drawn  from 
the  SLAM  uniform  number  generator.  If  the  probability  of 
detection  exceeds  the  random  number,  the  target  is  con¬ 
sidered  detected  and  filed  in  a  temporary  file.  The  total 
number  of  targets  detected  and  the  call  signs  and  ranges 
of  the  total  (up  to  a  maximum  of  ten)  closest  detected 
targets  are  filed  in  the  aircraft's  radar  file.  The  last 
three  lines  in  Figure  2  are  an  example  of  the  Radar  Threat 
File  for  Blue  1.  Note  that  the  targets  are  filed  in  order 
of  increasing  range,  with  closest  target  first.  The  radar 
search  ignores  aircraft  which  are  not  airborne.  An  example 
of  the  radar  operation  is  shown  in  Figure  2.  Recall  that 
altitudes  are  negative  (X3),  angles  below  the  horizon  are 
positive,  and  angles  above  the  horizon  are  negative.  (A 
full  listing  of  the  radar  operating  in  all  its  modes  is  in 
Appendix  B.) 

Visual  Search 

The  visual  search  section  operates  in  the  same 
manner  as  the  radar  section.  Every  five  seconds  the  range 
and  the  angular  relationship  of  all  airborne  aircraft 


Blue  1,  Mission  Code  111,  Speed  610.00  fps.  Time  740.00 
Position:  X(l):  10152160.00  X(2):  10149805.00  X(3) :  -19732.22 

Velocity:  X(l):  -.8631  X(2):  .5044  X(3) :  .0268 

Red  1  Mission  Code  118  Speed  700.00  fps.  Time  740.00 
Position:  X(l):  10061952.00  X(2):  10336223.00  X(3) :  -1500.00 

Velocity:  X(l):  -.3396  X(2)  -.9406  X(3):  .0000 

Radar  range.  Blue  1  to  Red  1  is  207897.98  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.49  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  33.88  degrees. 

Probability  of  Radar  Detection  is  .518.  Random  number  is  .962. 

Red  1  is  not  detected. 

Red  2  Mission  Code  118  Speed  700.00  fps.  Time  740.00 

Position:  X(l) :  10062428.00  X(2):  10337539.00  X(3) :  -1700.00 

Velocity:  X(l):  -.3396  X(2):  -.9406  X(3) :  .0000 

Radar  range.  Blue  1  to  Red  2  is  208856.53  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.41  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  34.15  degrees. 

Probability  of  Radar  Detection  is  .510.  Random  number  is  .231. 

Red  2  is  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps.  Time  740.00 

Position:  X(l):  10062904.00  X(2) :  10338855.00  X(3) :  -1900.00 

Velocity:  X(l):  -.3396  X(2):  -.9406  X(3) :  .0000 

Radar  range.  Blue  1  to  Red  3  is  209820.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.34  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  34.43  degrees. 
Probability  of  Radar  Detection  is  .501.  Random  number  is  .126. 

Red  3  is  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  740.00 
Position:  X(l) :  10063380.00  X(2):  10340171.00  X(3):  -2100.00 

Velocity:  X(l):  -.3396  X(2):  -.9406  X(3) :  .0000 

Radar  range,  Blue  1  to  Red  4  is  210788.98  feet 
Radar  detection  limits  are : 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.26  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  34.70  degrees. 

Probability  of  Radar  Detection  is  .493.  Random  number  is  .407. 

Red  4  is  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  740.00 
Position:  X(l) :  10063856.00  X(2):  10341487.00  X(3) :  -2300.00 

Velocity:  X(l) :  -.3396  X(2):  -.9406  X(3) :  .0000 

Fig.  2.  Radar  Detection 
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211762.77  feet 


Radar  range.  Blue  1  to  Red  5  Is 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.18  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  34.97  degrees. 

Probability  of  Radar  Detection  is  .485.  Random  number  is  .001. 

Red  5  is  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps.  Time  740.00 

Position:  X(l) :  10064332.00  X(2):  10342803.00  X(3) :  -2500.00 

Velocity:  X(l):  -.3396  X(2):  -.9406  X(3):  .0000 

Radar  range.  Blue  1  to  Red  6  is  212741.48  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.11  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  35.23  degrees. 

Probability  of  Radar  Detection  is  .477.  Random  number  is  .709. 

Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps.  Time  740.00 

Position:  X(l) :  10064808.00  X(2):  10344119.00  X(3) :  -2700.00 

Velocity:  X(l) :  -.3396  X(2):  -.9406  X(3)  :  .0000 

Radar  range.  Blue  1  to  Red  7  is  213725.06  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.03  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  35.49  degrees. 

Probability  of  Radar  Detection  is  .469.  Random  number  is  .013. 

Red  7  is  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps.  Time  740.00 

Position:  X(l) :  10065284.00  X(2):  10345435.00  X(3) :  -2900.00 

Velocity:  X(l) :  -.3396  X(2):  -.9406  X(3) :  .0000 

Radar  range.  Blue  1  to  Red  8  is  214713.45  feet 

Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  2.96  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  35.76  degrees. 

Probability  of  Radar  Detection  is  .461.  Random  number  is  .266. 

Red  8  is  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps.  Time  740.00 

Position:  X(l) :  10042000.00  X(2) :  10293350.00  X(3) :  -11408.03 

Velocity:  X(l) :  -.1417  X(2):  -.9899  X(3) :  .0000 

Radar  range,  Blue  1  to  Red  9  is  181134.44  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.10  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  22.20  degrees. 

Probability  of  Radar  Detection  is  .741.  Randon  number  is  .148. 

Red  9  is  detected. 


Fig.  2--C  on  t inued 
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Red  10  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l) :  10042926.00  X(2):  10294530.00  X(3) :  -11408.03 

Velocity:  X(l) :  -.1417  X(2) :  -.9899  X(3)  .0000 

Radar  range,  Blue  1  to  Red  10  is  181512.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lover  8.00  degrees. 

Target  elevation  is  1.09  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  22.66  degrees. 

Probability  of  Radar  Detection  is  .737.  Random  number  is  .467. 

Red  10  is  detected. 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l) :  10058612.00  X(2) :  10302418 .00  X(3) :  -15309.75 

Velocity:  X(l):  -.1903  X(2):  -.9817  X(3):  .0000 

Radar  range.  Blue  1  to  Red  11  is  179057.30  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.12  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  28.19  degrees. 

Probability  of  Radar  Detection  is  .758.  Random  number  is  .712. 

Red  11  is  detected. 

Red  12  Mission  Code  114  Speed  850.00  fps.  Time  740.00 

Position:  X(l) :  10068238.00  X(2):  10305123.00  X(3) :  -15614.13 

Velocity:  X(l):  .5163  X(2):  -.8561  X(3) :  -.0244 

Radar  range.  Blue  1  to  Red  12  is  176588.63  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  -.20  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  31.32  degrees. 

Probability  of  Radar  Detection  is  .778.  Random  number  is  .687. 

Red  12  is  detected. 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l) :  9923405.00  X(2):  10408900.00  X(3) :  -13026.68 

Velocity:  X(l) :  .1841  X(2) :  -.9829  X(3) :  .0000 

Radar  range.  Blue  1  to  Red  41  is  345693.56  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.42  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  18.26  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .284. 

Red  41  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps.  Time  740.00 

Position:  X(l) :  9923903.00  X(2):  10410315.00  X(3) :  -13026.68 

Velocity:  X(l) :  .1841  X(2):  -.9829  X(3):  .0000 

Radar  range,  Blue  1  to  Red  42  is  346427.03  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.43  degrees. 

Fig.  2--C  on  t inued 
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Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  18.47  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .610. 

Red  42  is  not  detected. 

Red  43  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l) :  9922310.00  X(2):  10414745.00  X(3):  -19337.86 

Velocity:  X(l):  .1841  X(2):  -.9829  X(3) :  .0000 

Radar  range,  Blue  1  to  Red* 43  is  350748.31  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  -1.47  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  18.76  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .392. 

Red  43  is  not  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps.  Time  740.00 

Position:  X(l) :  9923019.00  X(2):  10416160.00  X(3):  -19337.86 

Velocity:  X(l) :  .1843  X(2) :  -.9829  X(3)  .0000 

Radar  range.  Blue  1  to  Red  44  is  351355.59  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees 

Target  elevation  is  -1.47  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  18.99  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .24:. 

Red  44  is  not  detected. 

*  Radar  Threat  File 

Nthrt  Blue(l)  ■  10  Time:  740.00  Flag  =  1,  Msn  Code  =  111 

Threat  Call  Signs  are:  12  11  9  10  2 

Threat  Ranges  are:  176588.63  179057.30  181134.44  181512.22  208856.53 


relative  to  each  aircraft  are  computed.  If  the  target  is 
within  an  arbitrary  range  of  10  NM  for  a  Blue  aircraft  or 
5  NM  for  a  Red  aircraft,  a  probability  of  detection  is 
assigned  based  on  the  relative  position  of  the  target  air¬ 
craft.  These  different  probabilities  of  detection  are 
based  on  the  relative  frequency  with  which  the  sector  is 
searched  and  the  difficulty  of  seeing  an  aircraft  there. 

For  example,  probability  of  seeing  an  aircraft  behind  and 
below  the  aircraft  is  zero.  Probabilities  and  sector  boun¬ 
daries  are  different  for  the  Red  and  Blue  aircraft  because 
of  differences  in  construction  which  limit  pilot  vision  in 
Red  aircraft  and  enhance  it  in  Blue.  Cutoff  ranges  are 
different  because  Blue  aircraft  are  almost  50  percent  larger 
in  planform  than  Red.  An  example  of  the  visual  detection 
process  is  given  in  Figure  3. 

Intercept 

The  intercept  computation  is  critical  to  an  aerial 
engagement.  If  an  aircraft  is  detected  on  radar  at  reason¬ 
ably  long  range  (20  to  30  NM) ,  the  pilot  normally  will  set 
a  source  which  will  reach  the  target  in  the  shortest  pos¬ 
sible  time,  given  the  initial  positions  and  velocities. 
Geometrically,  it  is  a  triangulation  problem,  with  the 
requirement  being  to  find  the  angle  between  the  two  air¬ 
craft  courses  which  will  minimize  the  time  until  both  air¬ 
craft  meet.  The  model  accomplishes  this  by  vector  methods 
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Blue  1,  Mission  Code  120,  Speed  840.00  fps.  Time  890.00 

Position:  X(l):  10086981.00  X(2)  :  10240221.00  X(3) :  -1884.40 

Velocity:  X(l) :  -.7347  X<2):  .4656  X(3) :  .4935 

Red  3  Mission  Code  118  Speed  700.00  fps.  Time  890.00 

Position:  X(l) :  10087816.00  X(2):  10238329.00  X(3) :  -1900.00 

Velocity:  X(l):  .2914  X(2):  -.9566  X(3) :  .0  000 

Range,  Blue  1  to  Red  3  is  2068.12  feet 

Visual  Detection,  Red  3  bears  left  of  nose  146  degrees. 

He  is  above  the  wing  line. 

Probability  of  Visual  Detection  is  .540.  Random  number  is  .449. 
Red  3  is  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps.  Time  890.00 
Position:  X(l):  10087408.00  X(2):  10239669.00  X(3) :  -2100.00 

Velocity:  X(l) :  .2914  X(2):  -.9566  X(3) :  .0000 

Range,  Blue  1  to  Red  4  is  730.42  feet 

Visual  Detection,  Red  4  bears  left  of  nose  160  degrees.  . 

He  is  above  the  wing  line. 

Probability  of  Visual  Detection  is  .780.  Random  number  is  .557. 
Red  4  is  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps.  Time  890.00 

Position:  X(l) :  10087000.00  X(2):  10241009.00  X(3) :  -2300.00 

Velocity:  X(l):  .2914  X(2):  -.9566  X(3) :  .0000 

Range,  Blue  1  to  Red  5  is  891.08  feet 

Visual  Detection,  Red  5  bears  left  of  nose  59  degrees. 

He  is  below  the  wing  line. 

Probability  of  Visual  Detection  is  .878.  Random  number  is  .388. 
Red  5  is  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps.  Time  890.00 

Position:  X(l):  10086592.00  X(2):  10242349.00  X(3)  :  -2500.00 

Velocity:  X(l) :  .2914  X(2)  -.9566  X(3) :  .0000 

Range,  Blue  1  to  Red  6  is  2249.15  feet 

Visual  Detection,  Red  6  bears  left  of  nose  47  degrees. 

He  is  below  the  wing  line. 

Probability  of  Visual  Detection  is  .265.  Random  number  is  .043 
Red  6  is  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps.  Time  890.00 

Position:  X(l) :  10086184.00  X(2):  10243689.00  X(3) :  -2700.00 

Velocity:  X(l):  .2914  X(2):  -.9566  X(3):  .0000 

Range,  Blue  1  to  Red  7  is  3650.68  feet 

Visual  Detection,  Red  7  bears  left  of  nose  44  degrees. 

He  is  below  the  wing  line. 

Probability  of  Visual  Detection  is  .151.  Random  number  is  .184. 
Red  7  is  not  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  890.00 

Position:  X(l):  10085776.00  X(2):  10245029.00  X(3) :  -2900.00 

Velocity:  X(l) :  .2914  X(2):  -.9566  X(3)  .0000 

Fig.  3.  Visual  Detection 
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Range,  Blue  1  to  Red  8  is  5059.68  feet 

Visual  Detection,  Red  8  bears  left  of  nose  43  degrees. 

He  is  below  the  wing  line. 

Probability  of  Visual  Detection  is  .105.  Random  number  is  .457. 

Red  8  is  not  detected. 

*  Only  the  closest  visual  threat  is  saved. 

Visual  Threat:  Blue  1,  Call  Sign  is:  Red  4,  Range  is:  730.42  ft 
Blue  1  has  tally-ho  on  Red  4  at  Time  891.00 
Blue  1  reacting  visually  to  Red  4,  Time  891.00 

Blue  1,  gun  kill  on  Red  4,  Time:  892.00 


Fig.  3 - -C  on  t inued 


as  described  in  Chapter  II.  Figure  4  shows  the  positions 
and  angular  relation  once  the  intercept  has  stabilized,  and 
the  computed  intercept  point  and  time.  The  fighter's 
velocity  vector  does  not  precisely  match  the  intercept 
vector  (Int  vec)  because  the  fighter  is  maintaining  his 
altitude  until  within  8  NM  of  the  target.  A  complete 
sequence  of  intercept  readouts  from  initial  contact  to 
missile  launch  is  in  Appendix  B. 


Target  Red  1,  altitude  1500.00  ft.  Attack  will  be  from  above. 

Attack  altitude  9500.00  ft. 

Blue  1  intercepting  Red  1,  Range  21.08  NM,  Time  803.00 
Missile  Employment  Ranges  are: 

Radar  Missiles:  Max  Range:  46592.45  ft,  Min  Range:  12883.56 
Heat  Missiles:  Max  Range:  20450.34  ft  Min  Range :  5129.40 


Intercept  Calculations:  Ftr  Blue  1, 

Tgt  Red  1,  Intcpt  in 

84.12  seconds 

Ftr  Speed 

840.00  fps,  Tgt  Speed  700.00  fps. 

Ftr  pos: 

X(l): 

10133970.00 

X(2) 

:  10185384.00 

X(3): 

-9653.52 

Vel : 

X(l): 

-.6573 

X<2) 

:  .7537 

X(3)  : 

.0000 

Tgt  pos: 

X(l): 

10070680.00 

X(2) 

:  10294609.00 

X(3) 

-1500.00 

Vel: 

X(l)  : 

.2914 

X(2) 

:  -.9566 

X(3): 

.0000 

Ftr  LOS: 

X(l): 

-.5003 

X<2) 

.8634 

X(3): 

.0645 

Int  vec: 

X(l): 

-6529 

X(2) 

:  .7486 

X(3): 

.1154 

Fig. 

4  . 

Intercept 

Visual  Engagement 

Normally,  targets  are  first  detected  on  radar  and 
the  initial  maneuvers  are  intercepts.  After  the  aircraft 
have  closed  to  visual  range,  it  is  quite  common  to  see  the 
aircraft  which  is  the  target  of  the  intercept  and  possibly 
others  in  the  vicinity.  In  attacking  a  formation,  pilots 
would  like  to  be  able  i  launch  a  radar  missile  from  beyond 


visual  range  and  follow  it  in,  possibly  getting  more  shots 


as  other  aircraft  In  Che  formation  are  visually  acquired. 

It  is  considered  an  advantage  to  get  the  first  kill  in  an 
engagement,  as  this  cuts  down  the  odds  and  demoralizes  the 
opponents.  In  this  model  pilots  look  for  aircraft  which 
might  be  targets  and  react  to  aircraft  which  are  attacking 
them.  (An  attacking  aircraft  is  defined  as  one  which  is 
within  3  KM  and  has  its  nose  pointed  at  the  aircraft.) 

If  an  aircraft  has  a  radar  missile  in  flight  it  will  Ignore 
visual  sightings  unless  an  aircraft  is  attacking  it,  in 
which  case  it  will  react  to  defend  itself.  The  gun  and  the 
IR  missile  are  the  primary  weapons  in  the  visual  engagements. 

Weapons  Employment 

The  capability  of  various  a ir craf t /weapon  combina¬ 
tions  are  well  documented,  although  with  less  certainty 
for  Red  aircraft.  Where  doubt  existed.  Red  was  assumed  to 
have  the  capabilities  of  a  US  F-4  Phantom  so  far  as  missiles 
and  radar  performance  are  concerned.  When  the  arbitrarily 
defined  tactical  ranges  of  the  missiles  were  met,  the 
missiles  were  launched.  These  ranges  are  based  on  the  rela¬ 
tion  of  the  launching  aircraft  to  the  target,  being  greater 
from  in  front  and  diminishing  toward  the  stern.  The  mis¬ 
siles  are  flown  out  to  the  target,  using  an  average  constant 
velocity,  which  is  not  an  unrealistic  assumption  over  the 
ranges  involved.  Once  the  missile  reaches  the  target,  a 
probability  of  kill  is  determined  by  comparing  a  random 
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□umber  of  an  arbitrary  probability  of  kill  (Pk).  For  radar 
missiles  this  Pk  is  based  on  aspect,  being  lover  in  the 
beam  (side)  areas  than  in  the  stern  or  nose  quadrants.  Red 
missiles  also  have  a  lover  Pk  based  on  technological  fac¬ 
tors.  Blue  IR  missiles  have  a  constant  Pk  from  all  aspects. 
An  example  of  a  Blue  IR  missile  shot  is  seen  in  Figure  5. 
(The  same  section  of  the  program  handles  Red  IR  missile 
shot  also.)  Red  IR  missiles  are  effective  only  in  the  stern 
area,  and  outside  this  the  Pk  is  zero.  The  probabilities 
assigned  to  the  missiles  are  designed  to  take  into  account 
all  the  miscellaneous  items  such  as  reliability,  guidance, 
and  varhead  lethality.  Gun  shots  are  given  a  fairly  lov  Pk 
befitting  their  probable  manner  of  use  in  this  scenario. 

In  multi-aircraft  engagements  such  as  this  it  is  generally 
considered  too  dangerous  to  take  the  time  to  maneuver  to 
gain  a  position  vhich  vould  afford  a  good  gun  shot,  so  gun 
shots  are  shots  of  opportunity,  taken  in  haste  and  vithout 
time  to  refine  the  parameters.  In  the  model,  a  successful 
gun  shot  requires  tvo  seconds  of  cannon  fire,  from  vithin  a 
2500  foot  range  vith  the  nose  on  the  target  aircraft.  If 
this  is  achieved  the  gun  shot  is  considered  successful. 

Lov  Level  Navigation 

The  Red  fighter  bombers  fly  a  predetermined  lov 


level  route  at  an  altitude  of  1500  feet  and  an  airspeed  of 
420  knots  (700  fps).  At  each  of  the  vaypoints  on  the  route 


Heat  missHe  section.  Target  Is  Red  1  Speed  2000.00  fps.  Tine 


Missile  position:  X(l) 
Velocity:  X(l) 
Target  position:  X(l) 
Velocity:  X(l) 


10108014.00 

-.8796 

10102130.00 

-.4062 


Previous  range:  8066.95,  .Current  Range: 


X(2):  10228023.00  X(3) : 
X(2) :  .4712  X(3): 

X(2) :  10229725.00  X(3) : 
X(2) :  -.9138  X(3): 

6138.42,  Delta: 


843.00 

-10838.97 

-.0660 

-11241.34 

.0000 

1928.5 


Heat  missile  section.  Target  is  Red  1  Speed  2000.00  fps.  Time  847.00 
Missile  position:  X(l) :  10100553.00  X(2):  10226463.00  X(3) :  -11249.13 

Velocity:  X(l) :  -.9589  X(2):  -.2792  X(3) :  -.0506 

Target  position:  X(l):  10100750.00  X(2):  10226617.00  X(3) :  -11241.34 

Velocity:  X(l) :  -.4062  X(2):  -.9138  X(3):  .0000 

Previous  range:  1076.38,  Current  Range:  250.17,  Delta:  826.2 


Heat  missile  section.  Target  is  Red  1  Speed  2000.00  fps.  Time  848.00 
Missile  position:  X(l):  10100091.00  X(2):  10224517.00  X(3) :  -11224.80 

Velocity:  X(l) :  -.7870  X(2):  -.6161  X(3) :  -.0311 

Target  position:  X(l) :  10100405.00  X(2):  10225840.00  X(3):  -11241.34 

Velocity:  X(l):  -.4062  X(2) :  -.9138  X(3) :  .0000 

Previous  range:  250.17,  Current  Range:  1359.85*  Delta:  -1109.7 

*  A  negative  "Delta"  indicates  the  missile  has  passed  the  target,  and 
a  determination  of  missile  success  is  made. 

Missile  passed  target,  kill  determination: 

Pk  *  .7500,  Random  Number  *  .7442,  Target  is  dead. 

Red  1  shot  down  by  heatseeker,  Time:  848.00 

Fig.  5.  IR  Missile  Flyout 


I 


4 
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the  aircraft  turn  when  within  3,000  feet  of  the  point.  Th< 
last  point  is  the  base  and  the  aircraft  lands.  This 
sequence  is  shown  in  Figure  6. 

CAP  Patterns 

Blue  aircraft  are  Initially  in  CAP  patterns  which 
are  racetrack  shaped,  12  NM  long,  and  flown  at  20,000  feet 
altitude.  Blue  aircraft  remain  there  until  they  detect 
hostile  aircraft,  are  attacked,  or  reach  a  low  fuel  state 
and  go  home.  Figures  7a  to  7d  are  printouts  of  Blue  air¬ 
craft  in  a  CAP  pattern.  These  patterns  are  normally  speci¬ 
fied  in  terms  of  a  geographic  point,  an  inbound  heading  to 
that  point,  and  a  pattern  length.  It  can  be  seen  in  the 
figure  that  the  aircraft  conform  to  the  pattern  parameters. 

Validation 

Validation  of  a  model  which  represents  a  process 
or  situation  such  as  this  presents  inherent  problems.  The 
most  obvious  one  is  that  there  are  no  actual  results  with 
which  to  compare  the  model  results.  Indeed,  the  purpose  of 
building  the  model  was  to  obtain  these  results.  Therefore, 
it  was  necessary  to  proceed  by  indirect  means.  In  a  case 
such  as  this  where  actual  results  are  not  available,  face 
validity  becomes  very  important.  The  author  attempted  to 
build  into  the  model  the  essential  elements  of  a  large 
aerial  engagement,  based  on  12  years'  experience  in  tacti¬ 
cal  fighters  and  numerous  suggestions  from  other 


12.00 

611.00 


Red  1  departed  Base  1  on  Route  1  Time: 

Waypoint  1,  Route  #  1,  Red  1,  Time: 

Range  to  Waypoint  1  2S97.93  ft. 

Ftr  pos:  X(l):  10090100.00  X(2):  10422596.00  X(3) :  -1500.00 

Waypt  Pos:  X(l):  10090000.00  X(2) :  10420000.00  X(3) :  .00 

Waypoint  2,  Route  if  1,  Red  1»  Time:  747.00 

Range  to  Waypoint  2  2330.86  ft. 

Ftr  pos:  X(l) :  10060586 .00  X(2):  10332256.00  X(3):  -1500.00 

Waypt  Pos:  X(l) :  10060000.00  X(2) :  10330000.00  X(3)  :  .00 

Waypoint  3,  Route  if  1,  Red  1,  Time:  1031.00 

Range  to  Waypoint  3  2702.71  ft. 

Ftr  pos:  X(l):  10119052.00  X(2):  10142531.00  X(3):  -1500.00 

Waypt  Pos:  X(l) :  10120000.00  X(2):  10140  000.00  X(3)  :  .00 

Waypoint  4,  Route  if  1,  Red  1,  Time:  1261.00 

Range  to  Waypoint  4  2888.15  ft. 

Ftr  pos:  X(l):  9978559.00  X(2):  10073339.00  X(3) :  -1500.00 

Waypt  Pos:  X(l):  9976000.00  X(2) :  10072000.00  X(3):  .00 

Waypoint  5,  Route  if  1,  Red  1,  Time:  1514.00 

Range  to  Waypoint  5  2637.14  ft. 

Ftr  pos:  X(l) :  9999644.00  X(2):  10237387.00  X(3)  :  -1500.00 

Waypt  Pos:  X(l) :  10000000.00  X(2):  10240000.00  X(3) :  .00 

Waypoint  6,  Route  If  1,  Red  1,  Time:  1769.00 

Range  to  Waypoint  6  2523.87  ft. 

Ftr  pos:  X(l) :  10059082.00  X(2) :  10405649.00  X(3) :  -1500.00 

Waypt  Pos:  X(l) :  10060000.00  X(2):  10408000.00  X(3) :  .00 

Waypoint  7,  Route  If  1,  Red  1,  Time :  2392.00 

Range  to  Waypoint  7  2649.24  ft. 

Ftr  pos:  X(l):  10119869.00  X(2):  10837354.00  X(3) :  -1500.00 

Waypt  Pos:  X(l):  10120000.00  X(2):  10840000.00  X(3):  .00 


Red  1  landed  at  Time: 


2392.00 


Fig.  6.  Low  Level  Navigation 


CAP  1  range  Is  1.4  NM 

CAP  1  location  is  X(l):  10154269.00  X(2)  :  10183851.00  X(3) :  -20000.00 
Blue  1  headed  outbound  in  CAP  1.  Theta  “  .0461,  Tine:  523.00 

Blue  1,  CAP  #  1,  Speed  585.00,  Tine  523.00 
Position:  X(l) :  10162814.00  X(2):  10183835.00  X(3) :  -19987.00 

Velocity:  X(l) :  .1326  X(2):  -.9912  X(3)  .0000 

Blue  2,  CAP  #  1,  Speed  585.00,  Tine  523.00 

Position:  X(l) :  10164714.00  X(2):  10185639.00  X(3):  -19987.00 

Velocity:  X(l) :  .1326  *  X(2):  -.9912  X(3) :  .0000 


Fig.  7a.  CAP  Pattern 
CAP  1  range  is  12.1  NM 

CAP  1  location  is  X(l) :  10154269.00  X(2):  10183851.00  X(3) :  -20000.00 

Blue  1  turning  inbound  in  CAP  1,  Time:  644.00 


Blue  1,  CAP  #  1,  Speed  585.00,  Time  644.00 
Position:  X(l) :  10172252.00  X(2):  10113655.00  X(3) : 

Velocity:  X(l) :  .1326  X(2):  -.9912  X(3) : 

Blue  2,  CAP  #1,  Speed  585.00,  Tine  644.00 
Position:  X(l) :  10174152.00  X(2):  10115459.00  X(3): 

Velocity:  X(l) :  .1326  X{2):  -.9912  X(3) : 


-19987.00 

.0000 

-19987.00 

.0000 


N 


\ 


/ 


Fig.  7b.  CAP  Pattern 


CAP  1  range  is  12.1  NM 

CAP  1  location  is  X(l) :  10154269. Op  X(2):  10183851.00  X(3)  :  -20000.00 

Blue  1  headed  inbound  to  CAP,  Time:  667.00 


Blue  1,  CAP  #1,  Speed  585.00,  Time  667.00 

Position:  X(l):  10163861.00  X(2):  10111955.00 

Velocity:  X(l) :  -.2630  X(2):  .9648 

Blue  2,  CAP  #  1,  Speed  585.00,  Time  667.00 

Position:  X(l) :  10161961.00  X(2):  10110152.00 

Velocity:  X(l) :  -.1322  *  X(2):  .9912 


UA 


X(3): 

-20000.04 

X(3): 

-.0002 

X(3): 

-20000.04 

X(3): 

.0000 

CM>Pt 


Fig.  7c.  CAP  Pattern 

CAP  1  range  is  .5  NM 

CAP  1  location  is  X(l) :  10154269.00  X(2):  10183851.00  X(3) :  -20000.00 

Blue  1  turning  outbound  in  CAP  1,  Time  786.00 


Blue  1,  CAP  #  1,  Speed  585.00,  Time  786.00 


Position: 

X(l): 

10154698.00 

X(2): 

10180975.00 

X(3): 

-20000.04 

Velocity : 

X(l) : 

-.1322 

X(2): 

.9912 

X(3) : 

.0000 

Blue  2.  CAP  #  lt 

Speed  585.00,  Time 

786.00 

Position : 

X(l): 

10152798.00 

X(2)  : 

10179172.00 

X(3)  : 

-20000.04 

Velocity: 

X(l): 

-.1322 

X  ( 2)  : 

.9912 

X(3): 

.0000 

-.1322, 


experienced  tactical  pilots.  Turing  tests,  where  the  simu¬ 
lation  results  are  shown  to  persons  knowledgeable  about  the 
process  and  they  are  asked  whether  or  not  they  are  reason¬ 
able,  are  probably  the  best  available  tool  in  this  situation 
However,  there  was  insufficient  time  to  conduct  these  tests 
after  the  model  was  constructed.  The  AIMVAL-ACEVAL  trials 
quoted  by  Hodnett  and  Mussoa  (Ref  7:75-76)  were  judged  not 
useful  for  validation  of  this  model.  These  trials  were 
limited  to  a  maximum  of  four  aircraft  on  each  side,  with 
the  majority  of  the  trials  being  2  Blue  fighters  against 
four  Red.  Also,  the  Red  aircraft  were  equipped  with 
advanced  IR  missiles,  which  they  do  not  have  in  this  model 
or  in  actuality.  Therefore,  it  was  felt  the  results  of  the 
AIMVAL-ACEVAL  trials  and  this  simulation  should  not  be  com¬ 
pared.  One  set  of  test  results  is  available  which  is  appli¬ 
cable  in  some  degree.  The  Air  Force  Test  and  Evaluation 
Center  (AFTEC)  conducted  an  Operational  Utility  Evaluation 
of  the  Advanced  Medium  Range  Air-to-Air  Missile  (AM-RAAM) 
using  the  McDonnell-Douglas  simulator  facility  in  St.  Louis, 
Missouri.  The  evaluation  compared  the  use  of  the  AIM-7F 
missile,  which  is  used  in  this  model,  with  AM-RAAM  under 
like  scenarios.  Full  data  is  available  on  all  phases  of  the 
evaluation.  The  simulation  used  man-in-the-loop  throughout. 
The  only  drawback  is  that  the  computer  limited  the  simula¬ 
tion  to  a  maximum  of  12  aircraft:  four  Blue,  four  Red 
fighters,  and  four  Red  fighter-bombers  which  flew  "canned" 


routes.  Data  from  the  applicable  segments  are  used  to  pro¬ 
vide  a  baseline  with  which  to  compare  results  of  this  model 
because  they  are  the  only  data  available.  Readers  with 
proper  clearances  are  referred  to  Reference  7.  The  problems 
encountered  with  getting  the  model  to  work  properly  pre¬ 
vented  any  attempt  at  validation  of  output  from  the  model. 
The  approach  employed  in  building  the  model  was  discussed 
with  experienced  tactical  fighter  pilots  and  there  was 
general  agreement  that  it  appeared  intuitively  appealing. 
However,  with  no  output,  further  checks  could  not  be  run. 
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IV .  Conclusions  and  Recommendations 


Data  Is  collected  on  the  variables  shown  in  Figure  8. 
As  each  of  the  events  occurs,  a  SLAM  global  variable  is 
incremented.  At  the  end  of  the  simulation  Subroutine  OTPUT 
is  called  and  writes  these  variables  to  a  file  for  future 
analysis  by  any  of  the  available  statistical  packages  such 
as  Statistical  Package  for  the  Social  Sciences  (SPSS)  or 
BMPD.  If  desired,  a  trace  may  be  obtained  of  any  of  the 
several  elements  of  the  model,  including  weapons  employment 
events,  position  and  velocity  coordinates,  and  radar  file 
printouts.  This  is  done  by  setting  the  start  and  stop 
times  for  the  desired  trace  in  Subroutine  INTLC .  These 
set  logical  switches  which  operate  "write"  statements  at 
the  desired  times. 


XX  ( 

1) 

BLUE  Aircraft 

XX(  8): 

BLUE  IR  kills 

XX  ( 

2) 

RED  Aircraft 

XX(  9): 

BLUE  Gun  shots 

XX  ( 

3) 

BLUE  Losses 

XX(10)  : 

BLUE  Gun  kills 

XX  ( 

A) 

RED  Losses 

XX(ll) : 

RED  Radar  missiles 

XX  ( 

5) 

BLUE  Radar  missiles 

XX(12)  : 

RED  Radar  kills 

XX  ( 

6) 

BLUE  Radar  kills 

XX(13)  : 

RED  IR  missiles 

XX  ( 

7) 

BLUE  IR  missiles 

XX(14)  : 

RED  IR  kills 

Fig.  8.  Model  Variables 

Unfortunately,  it  required  so  much  time  to  get  the 
model  running  properly  there  was  no  opportunity  to  collect 
and  analyze  data.  A  sample  of  the  weapons  employment  trace 
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is  shown  in  Figure  4.  The  data  graphics  capability  of  SLAM 
can  also  be  used  to  get  graphs  of  the  values  of  any  of  the 
variables  over  time. 

The  experimental  design  envisioned  a  series  of  5 
runs  of  each  combination  of  4  and  8  Blue  aircraft,  16  Red 
fighter-bombers,  and  8,  16,  24,  and  32  Red  fighters. 
Analysis  would  be  done  on  the  effect  of  the  beginning 
ratios  of  aircraft  engaged  to  the  losses  on  each  side  and 
the  exchange  ratio,  or  number  of  Blue  losses  to  the  number 
of  Red  losses. 

Conclusions  and  Recommendations 

Although  there  was  no  opportunity  to  experiment 
with  the  model,  several  conclusions  can  be  drawn  from  the 
process  of  building  it. 

The  VAX  11/780  computer  with  the  UNIX  operating 
system  is  an  excellent  tool  for  building  programs  of  this 
nature.  It  allows  easy  manipulation  of  files  and  code  and 
turnaround  is  very  quick  on  simulation  runs.  A  subset  with 
four  Blue  fighters  and  eight  Red  fighter-bombers  went 
through  a  series  of  five  complete  runs  in  6.5  minutes. 

With  response  times  as  short  as  this,  it  is  possible  to 
make  changes  and  see  the  results  quickly. 

The  UNIX  FORTRAN  77  compiler  was  a  source  of  some 
frustration.  It  did  not  catch  minor  errors  in  format 
statements  and  these  would  subsequently  cause  the  program 


to  bomb.  Also,  If  format  statements  ran  over  3  lines  in 
length,  the  loader  had  trouble  assembling  them  and  would 
quit  with  "Termination  Code  XXX"  message  that  offered  no 
help  . 

There  are  several  options  available  with  the  com¬ 
piler.  One  of  the  most  useful  was  "-C"  which  checked  array 
subscripts  to  catch  errors  caused  by  exceeding  array  boun¬ 
daries.  However,  this  option  would  not  work  if  any  program 
unit  exceeded  approximately  700  lines.  It  would  give  com¬ 
piler  and  assembler  errors  with  no  indication  of  what  the 
problem  was.  It  is  also  very  slow,  taking  5.0  to  7.5 
minutes  to  compile  the  program  for  the  model.  Compiling 
without  the  "-C"  option  took  only  one-third  the  time*. 

Also,  the  model  ran  much  more  slowly  when  it  was  compiled 
with  the  " — C "  option.  The  best  course  seemed  to  be  com¬ 
piling  with  the  "-C"  option  while  debugging  the  program  and 
not  using  it  after  all  the  bags  were  out.  The  compiler's 
diagnostics  were  quite  often  cryptic  and  there  was  no  avail¬ 
able  documentation  to  help  decipher  them  (e.g.,  "Branch  too 
far"  and  "Segmentation  Fault").  Because  the  VAX  computer 
and  the  UNIX  operating  system  were  both  new  to  the  School 
of  Engineering,  there-  were  no  experienced  persons  to  which 
to  go  for  advice,  and  this  undoubtedly  increased  the  length 
of  time  required  to  get  the  program  running. 

Another  problem  encountered  was  refusal  of  the  pro¬ 
gram  to  bomb  when  it  encountered  a  previously  undefined 
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variable  during  execution.  Undefined  variables  were  set  to 
zero  and  the  program  would  continue  running  (incorrectly, 
of  course) . 

The  model  appears  to  be  running  with  no  further 
coding  or  logic  errors..  Several  sections  were  shown  to  be 
running  correctly  in  the  verification  section.  However,  the 
model  is  in  no  sense  completely  verified.  The  aircraft 
"flew"  in  the  desired  manner  and  turn  performance  was  con¬ 
sistent  with  the  real  world  in  terms  of  turn  rate  and  radius 
Weapons  employment  took  place  at  the  desired  ranges  and 
missile  flyout  times  were  reasonable.  Radar  and  visual 
detection  functioned  correctly. 

Recommendation  s 

The  model  appears  to  be  a  useful,  fast-running  tool 
for  investigating  large  air-to-air  engagements.  The  next 
step  would  be  inclusion  of  further  print  statements  to  com¬ 
plete  verification  under  a  variety  of  scenarios  and  numbers 

A 

of  aircraft.  Once  the  user  was  satisfied  with  the  operation 
of  the  model,  sensitivity  analysis  should  be  run  on  all 
phases  of  its  operation  to  see  if  there  are  any  cases  which 
might  bias  results.  For  instance,  the  results  appeared  to 
be  sensitive  to  the  scheduling  of  Red  aircraft.  If  the  Red 
aircraft  did  not  arrive  close  together,  they  were  destroyed 
piecemeal.  This  might  leave  the  false  impression  that  the 
Blue  aircraft  were  very  capable  in  multi-threat  environment. 


The  experiment  which  was  planned  to  run  with  this 
model  involved  a  series  of  five  runs  each  with  all  combina¬ 
tions  of  2  and  4  Blue  aircraft,  8  Red  fighter-bombers,  and 
8,  16,  24,  and  32  Red  escort  fighters.  The  objective  was 
to  see  if  the  loss  rates  differed  significantly  from  the  low 
to  high  ratios  of  forces  engaged,  and  whether  there  was  a 
significant  difference  between  the  outcomes  of  the  engage¬ 
ments  with  2  and  4  Blue  fighters. 
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This  model  is  implemented  in  SLAM  and  FORTRAN  on  the  VAX 
11/780  computer.  Ten  user  .files  and  a  maximum  of  ten  attributes 
are  used.  NSET/QSET  is  dimensioned  to  15,000  and  actual  use  of 
the  array  is  just  under  9,000  words,  leaving  some  5,000  +  words 
for  recording  of  plot  variables  if  desired.  The  model  is  combined 
continuous-discrete.  No  difference  or  differential  equations  are 
used.  The  continuous  feature  is  used  to  accomplish  periodic 
updates  of  aircraft  and  missile  positions.  There  is  no  network 
and  the  SLAM  input  file  is  only  five  lines.  (Fig  II1-1)  ^ 


GEN, BOGUSCH, THESIS  ,3/9/83,1; 
INIT, 0,2000; 

LIMITS, 10, 10,600; 

CONTINUOUS, 0,2, .1, 1.0; 

TIMST , XX( 1 ) , BLUE  AC; 
TIMST,XX(2 ) ,RED  AC; 

TIMST, XX( 3), BLUE  LOSSES; 
TIMST, XX(4), RED  LOSSES; 

FIN; 


Example  of  SLAM  Statement  File 
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The  files  are  arranged  and  used  as  follows: 


File  1,  Aircraft  Flight  Xnfomation 


Attribute  #  Use 


XI  position  (feet,  north-south) 
X2  position  (feet,  east-vest) 

X3  position  (feet,  altitude) 

XI  velocity  component 
X2  velocity  component 
X3  velocity  component 
Airspeed  (magnitude,  feet/sec) 
Fuel  flow 
Desired  airspeed 
Desired  altitude 


*  Velocity  components  are  normalized  so 
velocity  vector  is  a  unit  vector. 


File  3,  Blue  Radar  Missile  File 


Attribute  # 


XI  position 

X2  position 

X3  position 

XI  velocity  component 

X2  velocity  component 

X3  velocity  component 

Airspeed  (magnitude  in  feet/sec) 

Remaining  flight  time 

Target  call  sign 

Previous  range  to  target 


Each  Blue  aircraft  has  one  entry  in  the  Blue  missile  file. 
These  are  Initialized  to  zero.  If  a  Blue  aircraft  launches  a 
radar  missile,  the  information  is  loaded  into  the  aircraft's  slot 
in  the  missile  file.  Because  an  aircraft  can  guide  a  radar  mis¬ 
sile  at  only  one  target  at  a  time,  this  suffices.  Any  missiles  in 
the  missile  file  are  updated  until  they  reach  point  of  closest 
approach  to  the  target  or  flight  time  goes  to  zero,  and  they  are 
removed  by  zeroing  the  entries. 


File  4,  Blue  Heat  Missile  File 


The  attributes  have  the  same  information  as  in  File  3.  There 
is  no  need  to  identify  a  heat  missile  with  its  launching  aircraft 


as  the  missile  is  autonomous  after  launch.  Therefore  there  is  no 
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set  number  of  entries  in  the  heat  missile  file.  As  heat  missiles 


are  launched,  they  are  placed  into  the  file.  As  they  reach  their 
targets  or  run  out  of  flight  time,  they  are  removed  from  the 
file.  Any  missile  present  are  updated  periodically  by  Subroutine 
STATE. 


File  5,  Combat  Air  Patrol  (CAP)  Information 


Attribute  # 


Use 


1 

2 

3 

4 

5 


6-8 

9 

10 


XI  coordinate  of  CAP  point 

X2  coordinate  of  CAP  point 

Lowest  Unassigned  Altitude  (min  20,000') 

Cosine  of  Outbound  Heading 

Sine  of  Outbound  Heading 

Unused 

Number  of  assigned  flight 
Number  of  flights  in  CAP 


( 


There  are  currently  three  CAPs  defined. 


I 

i 

File  6,  Red  Flight  Information 
This  file  is  analogous  to  File  1,  and  holds  the  flight 

! 

information  for  Red  aircraft. 


File  7,  Red  Operational  Information 


This  file  has  the  same  information  as  File  2,  except  for 


(' 

67 


Attribute  8  and  9  when  the  mission  code  is  118  (Low  Level  Navia- 
tion) . 


Mission  Code  118 

8:  Route  Number 
9:  Way  Point  Number 


File  8,  Red  Radar  Missiles 
File  9,  Red  Heat  Missiles 


These  files  are  exactly  like  Files  3  and  4  and  hold  missile 
information  for  Red  missile  launches. 


File  10,  Low  Level  Route  Waypoints 


Attribute  #  Use 


1 

XI 

coordinate 

of 

waypoint , 

Route 

#1 

2 

X2 

coordinate 

of 

waypoint , 

Route 

#1 

3 

XI 

M 

M 

9 

Route 

n 

4 

X2 

N 

» 

Route 

n 

5 

XI 

M 

M 

> 

Route 

#3 

6 

X2 

M 

M 

9 

Route 

#3 

7 

XI 

** 

«• 

9 

Route 

#4 

8 

X2 

M 

M 

9 

Route 

#4 

9 

XI 

M 

M 

9 

Route 

#5 

10 

X2 

•* 

9 

Route 

#5 

Entry  1  holds  the  first  waypoint  for  Route  1-5.  Entry  2 
holds  the  second  waypoint,  and  so  on.  The  last  entry  for  a  route 
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is  the  base  coordinates.  The  entry  following  the  base  coordinates 
is  999,  which  "lands"  the  aircraft  when  it  reaches  base. 

These  files  are  used  mainly  as  information  storage.  With  the 
exception  of  the  heat  missile  files,  entities  are  never  filed  or 
removed.  Values  of  the  attributes  are  changed  by  direct  access, 
which  in  SLAM  works  as  follows: 

Files  in  SLAM  are  merely  reserved  locations  in  the  QSET/NSET 
array.  Each  entry  in  a  file  requires  four  words  plus  the  number 
of  attributes  declared  in  the  LIMITS  statement  (Fig  III-l),  in 
this  case,  10  words.  Therefore,  each  entry  requires  14  storage 
locations  in  the  file.  The  extra  four  locations  hold  linking 
information  to  tie  the  entry  to  the  preceding  and  succeeding 
entries.  SIAM  stores  entries  in  logical  rather  than  physical 
sequence,  so  this  linking  information  is  necessary.  SIAM  main¬ 
tains  the  address  of  the  first  entry  in  the  file,  and  from  this 
the  location  of  any  subsequent  entry  may  be  determined.  The  SLAM 
function  for  determining  the  address  of  the  entry  with  rank  NRANK 
in  file  NFILE  is 


L0CAT(  NRANK,  NFILE) 

Thus,  NTRY  -  L0CAT(  5,1)  returns  the  address  of  the  first 
word  of  entry  number  5  in  file  1.  Attributes  of  an  entry  may  be 
accessed  by  QSET(  NTRY  +  CAttribute  Number>  ).  Thus  after  using 
the  LOCAT  function  above,  the  location  QSET(  NTRY  +  7  )  holds  the 
airspeed  of  aircraft  Blue  5.  Other  functions  which  return 
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addresses  of  the  first  and  last  entries  respectively  in  file 
NFILE.  To  step  forward  or  backward  through  a  file,  the  functions 
NSUCR(  NTRY  )  and  NFRED(  NTRY  )  return  addresses  of  the  succeed¬ 
ing  and  preceeding  entries  to  NTRY.  In  all  cases,  if  there  is  no 
entry,  an  address  of  zero  is  returned. 

The  only  caveat  in  using  direct  access  of  attributes  is  that 
an  attribute  used  for  ranking  entries  in  the  file  should  not  be 
changed  in  this  manner.  The  default  ranking  mechanism  of  FIFO 
(First  In,  First  Out)  is  used  in  all  cases,  so  this  is  not  a 
problem.  Having  determined  the  organization  of  the  files  let  us 
examine  the  operation  of  the  SLAM  program. 

In  the  combined  continuous-discrete  mode  of  operation,  SLAM 
advances  simulated  time  based  on  two  criteria:  next  event  time, 
and  step  time.  In  the  discrete  mode,  events  are  scheduled  to 
occur  at  some  future  time  by  being  placed  on  the  next  event 
calendar  (NCLNR)  in  order  of  event  time,  lowest  value  first.  The 
simulation  proceeds  by  advancing  time  (TNOW)  to  the  event  time  of 
the  next  event  on  the  calendar,  executing  that  event,  then 
advancing  to  the  next  event  time,  and  so  on,  thus  advancing  from 
event  to  event.  In  the  continuous  mode,  time  is  advanced  by  a 
fixed  increment,  specified  in  the  CONTINUOUS  statement  (Fig. 
III-l).  On-going  continuous  processes  are  updated  and  any  state 
variables  are  checked  for  the  occurance  of  a  state  event,  which 
is  just  the  passing  of  a  specified  level  by  a  state  variable.  If 
a  state  event  has  occurred,  the  step  size  is  reduced  (down  to  an 
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arbitrary  size)  and  values  recomputed,  to  locate  the  occurance  of 
the  state  event  as  precisely  as  possible.  SLAM  updates  state 
variables  by  calling  Subroutine  STATE  at  each  step  time  (DTNOW) . 
STATE  normally  contains  the  equations  defining  the  state  vari¬ 
ables.  In  this  model  there  are  presently  no  defined  state  vari¬ 
ables,  and  the  continuous  time  advance  mechanism  is  used  to 
update  the  position  and  velocity  vectors  of  aircraft  and  missiles 
every  second. 

Discrete  events  in  SLAM  are  usually  coded  in  Subroutine 
EVENT(  IE  ),  where  IE  is  used  in  a  computed  GO  TO  statement  to 
send  the  program  to  the  correct  block  of  code.  Events  may  occur 
in  "real"  time  as  a  result  of  Subroutine  EVENT  being  called  by 
the  model,  or  specific  events  may  be  placed  on  the  event  calendar 
by  a  call  to  SCHDL(  IEVENT,  TIME,  A  ),  where  I EVE NT  is  the  event 
code,  TIME  is  the  time  from  now  the  event  is  to  occur,  and  A  is 
the  array  holding  the  attributes  to  be  placed  on  the  event  calen¬ 
dar.  In  this  model  the  Radar  Detectin  and  Visual  Detection 
events  schedule  themselves  to  occur  every  few  seconds,  simulating 
contlnuulng  radar  and  visual  search.  Other  events  search  Blue 
aircraft  files  for  available  aircraft  and  assign  them  to  CAPs, 
and  send  Red  aircraft  on  low  level  routes. 

Another  subroutine  which  plays  a  major  role  in  this  model  is 
subroutine  CMPUTE.  This  subroutine  is  called  from  Subroutine 
STATE  for  each  airborne  aircraft  and  updates  the  velocity  vector 
based  on  the  mission  code  and  status  flag.  In  updating  the 
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velocity  vector,  it  does  such  things  as  compute  intercept  vec¬ 
tors,  launch  missiles,  route  aircraft  home  after  they  reach  low 
fuel  state,  and  execute  tactics.  All  changes  to  mission  codes 
(after  initial  assignment  by  Subroutine  EVENT)  are  made  by  Sub¬ 
routine  CMPUTE. 

Subroutine  STATE  has  already  been  mentioned.  This  subroutine 
is  called  by  SLAM  at  each  event  and  step  time.  Thus  any  variables 
described  by  equations  in  STATE  are  updated  at  least  every  second 
and  possibly  more  often. 

To  start  the  whole  simulation,  Subroutine  INTLC  is  called. 

This  subroutine  initializes  all  files  and  common  blocks,  assigns 
initial  missions,  and  schedule  initial  events. 

There  are  several  other  short  supporting  subroutines.  DOT 
and  CROSS  perform  the  indicated  vector  operations.  LOS  returns 
the  Line-of-Sight  (LOS)  between  two  points,  in  vector  form.  TURN 
move  one  vector  a  specified  distance  another  in  the  plane  formed 
by  the  two  vectors. 
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BQdar_ye ri f icotion_Listing 


Aircraft  Blue  1  is  in  CAF  1  (Mission  Code  111)  at  time  500.00 
as  the  radar  detection  subroutine  evaluates  its  relationship 
to  each  other  airborne  aircraft  and  test?  for  radar  detection. 
In  Figure  4.1a  ail  aircraft  are  outside  detection  range 
(range  greater  than  270,000  feet)  and  are  not  detected. 


Blue  It  Mission  Code  111*  Speed  585.00  fps,  Time  500.00 
Position!  X(1)J  10154269.00  X<2) I  10183851.00  X (3)  J  -199S7.00 

Velocity:  X(1)J  .0132  X<2>:  1.0962  X(3)J  .0000 

Red  1  Mission  Code  118  Speed  700.00  fps,  Time  500.00 

Position:  X(l):  10095600.00  X (2) :  10499376.00  XC3) !  -1500.00 

Velocity.*  X(l):  -.0712  X(2):  -.9975  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  1  is  321465.16  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.30  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees,  Target  azimuth  11,22  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .861. 

Red  1  is  not  detected. 

Red  2  Mission  Code  118  Speed  700.00  fps,  Time  500.00 

"’os  it  a  on  J  X(l):  10095700.00  X(2>:  10500772.00  X(3)J  -1700,00 

Velocity:  X(1)J  -.0712  X(2):  -.9975  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  2  is  322805.91  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -2.00  degrees,  Lower  8,00  degrees. 

Target  elevation  is  3.25  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  11.16  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .363. 

Red  2  is  not  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps.  Time  500.00 

Position:  X(l):  10095800.00  X(2)J  10502168.00  X(3)J  -1900.00 

Velocity:  X<1>:  -.0712  X(2) J  -.9975  X C 3 ) :  .0000 

Radar  range,  Blue  1  to  Red  3  is  324147.31  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.20  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  11.10  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .320. 

Red  3  is  not  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  500.00 

Position:  XU):  10095900.00  X(2U  10503564.00  X ( 3 ) :  -2100.00 

Velocity!  X(l):  -.0712  X ( 2 ) :  -.9975  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  4  is  325489.31  Feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.15  degrees. 

Azimuth  limits  ore!  +/-  55.00  degrees.  Target  azimuth  11.04  degrees 
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Probability  of  Radar  Detection  is  .000.  Random  number  is  .367. 

Red  4  is  not  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  500.00 
Position!  XU):  10096000.00  X(2).*  10504960.00  X  <  3  > :  -2300.00 

Velocity:  X<1)J  -.0712  X<2>:  -.9975  X(3>*.  .0000 

Radar  range*  Blue  1  to  Red  5  is  326831,91  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees*  Lower  8.00  degrees. 

Target  elevation  is  .3.10  degrees. 

Azimuth  limits  are:  47-  55.00  degrees.  Target  azimuth  10.98  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  ,200. 

Red  5  is  not  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps*  Time  500.00 

Position:  X(l):  10096100.00  X(2>:  10506356.00  X<3):  -2500.00 

Velocity:  X(l).‘  -.0712  X(2)J  -.9975  X<3)  J  .0000 

Radar  range*  Blue  1  to  Red  6  is  328175.13  feet 
Radar  detection  limits  are? 

Elevation!  Upper  -2.00  degrees*  Lower  8.00  degrees. 

Target  elevation  is  3.05  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  10.91  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .654. 

Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  500.00 

Position:  X(l):  10096200.00  X (2) J  10507752.00’  X<3>:  -2700.00 

Velocity:  X(l>:  -.0712  X<2>:  -.9975  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  7  is  329518.91  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.01  degrees. 

Azimuth  limits  are.’  +/-  55.00  degrees.  Target  azimuth  10.85  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .269. 

Red  7  is  not  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps*  Time  500.00 

Position:  X(l):  10096300.00  X<2>:  10509149.00  X  v  3 )  .*  -2900.00 

Velocity:  X(l):  -.0712  X<2>:  -.9975  X<3>:  .0000 

Radar  range*  Blue  1  to  Red  8  is  330863.28  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  2.96  degrees. 

Azimuth  limits  ore:  +/-  55.00  degrees.  Target  azimuth  10.79  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .705. 

Red  8  is  not  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  500.00 

Position:  X(l):  10070800.00  X (2) J  10495190.00  X<  3  >  J  -11408.03 

Velocity:  X(l):  -.1415  X(2)J  -.9899  X  <  3 ) :  .0000 

Radar  range,  Blue  1  to  Red  9  is  322447.91  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.52  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  15.70  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .703. 

Red  9  is  not  detected. 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  500.00 

Position:  XU):  10071726.00  X<2):  10496370.00  X  ( 3 )  J  -11403. 03 
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Velocity:  X( 1 >  t  -.1415  X(2>:  -.9899  X(3)J 

Radar  range,  Blue  1  to  Red  10  is  323349,75  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1,52  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  15.49  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .205. 

Red  10  is  not  detected. 

Red  11  Mission  Code  114.  Speed  850.00  fps,  Time  500.00 
Position!  X(l):  10071640.00  X<2> :  10501077.00  X<3)J  -14709.26 

Velocity:  X(l)‘.  -.1415  X<2)?  -.9899  X<3)J  .0000 

Radar  range,  Blue  1  to  Red  11  is  327853.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  ,92  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  15.29  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .333. 

Red  11  is  not  detected. 

Red  12  Mission  Code  114  Speed  850,00  fps,  Time  500.00 

Position:  xa)!  10072566.00  X(2>:  10502257.00  X(3>:  -14709.26 

Velocity:  X(l).'  -.1414  X<2)  J  -.9899  X<3) :  .0000 

Radar  range,  Blue  1  to  Red  12  is  328763.78  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .92  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  15.03  degrees 

Probability  of  Radar  Detection  is  .000,  Random  number  is  .011. 

Red  12  is  not  detected. 

Red  41  Mission  Code  114  Speed  850.00  fps.  Tame  500.00 

Position?  XU):  9885866.00  X(2)J  10609300.0 O  X  (3 )  J  -13026.68 

Velocity:  X(l):  .1841  X(2)J  -.9829  X<3) J  .0000 

Radar  range,  Blue  1  to  Red  41  is  503085.94  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .79  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  32.94  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .538. 

Red  -.1  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps,  Time  500.00 

Position:  XU):  9886364.00  X<2>:  10610715,00  X < 3 )  J  -13026.68 

Velocity:  XU):  .1841  X<2)'.  -.9829  X<3)',  .0000 

Radar  range,  Blue  1  to  Red  42  is  504018.25  feet 
Radar  detection  limits  are: 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .79  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  32.80  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .193. 

Red  42  is  not  detected. 

Red  43  Mission  Code  114  Speed  850.00  fps,  Time  500.00 

Position:  XU):  9884771.00  X(2)J  10615145.00  X<3>:  -19337.86 

Velocity?  XU):  .1841  X(2)J  -.9829  X(3)I  .0000 

Radar  range,  Blue  1  to  Red  43  is  503570.66  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower 


8.00  degrees. 


Target  elevation  is  .07  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  ozimuth  32.69  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .182. 

Red  43  is  not  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps,  Tine  500.00 
Position:  X(l>:  9885339.00  X(2):  10616560.00  X ( 3 ) :  -19337.86 

Velocity  5  XUK  .1843  X (2) :  -.9829  X(3)I  .0000 

Radar  range,  Plue  1  to  Red  44  is  509471.16  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .07  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  32.55  degrees. 

Probability  of  Radar  Detection  is  ,000.  Random  number  is  .605. 

Red  44  is  not  detected. 

*  Below  is  a  sample  of  the  radar  file,  with  the  number  of 
detected  radar  threats  (Nthrt),  the  call  signs,  and 
associated  ranges.  A  call  sign  of  *0*  and  range  of 
00*  indi  cate  no  target.  Therefore,  with  no 

detected  threats,  there  are  no  ranges  nor  call  signs 
stored.  (’Flag  =  -1*  indicates  the  aircraft  is 
turning  outbound  in  the  CAP.) 

Nthrt  Blue(  1)  =  0  Time?  500.00,  Flag  =  -1,  Msn  Code  = 

Threat  Call  Signs  are:  0000 

Threat  Ranges  are:  999999.00  999999.00  99 9999.00  999999.00 

Example  1.  -Radar  Detection 


At  time  530.00,  Blue  1  is  outbound  in  the  CAP  and  all  the  target  aircraft 
are  behind  it,  so  there  should  be  no  detections.  All  the  targets  are  out¬ 
side  the  azimuth  limits  and  are  not  detected. 


Blue  1,  Mission  Code  111,  Speed  585.00  fns,  Time  530.00 
Position:  X<1):  10163438.00  X(2)J  10179195.00  X<3>:  -19987.00 

Velocity:  X<1):  .1326  X<2>.*  -.9912  X  <  3 )  J  .0000 

Red  1  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position:  X(l):  10094100.00  X(2)l  10478436.00  X(3)5  -1500,00 

Velocity:  X(l):  -.0712  X(2)J  -.9975  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  1  is  307725.06  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.44  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  174.59  degrees. 

Red  2  Mission  Code  113  Speed  700,00  fps,  Time  530,00 

Position:  X(l):  10094200.00  X<2>.'  10479832.00  X(3>:  -1700.00 

velocity:  XU):  -.0712  X(2)J  -.9975  XC3U  .0000 


111 

0 

999999.00 


309048.41  feet 


Radar  range,  Blue  1  to  Red  2  is 
Radar  detecxion  limits  are! 

Elevation!  Upper  -2.00  degrees*  Lower  8.00  degrees. 

Target  elevation  is  3.39  degrees. 

Azimuth  limits  a-e!  +/-  55.00  Degrees.  Target  azimuth  174,66  degrees. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position!  XU)!  10094300.00  X(2>!  10481228.00  X(3)!  -1900.00 

Velocity!  X(l>!  -.0712  X(2)!  -.9975  X(3>!  .0000 

Radar  range,  Blue  1  to  Red  3  is  310372.56  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.34  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  174.74  degrees. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position!  XU)!  10094400.00  X<2) !  10482624.00  X(3>!  -2100.00 

Velocity!  X<1>!  -.0712  X(2)I  -.9975  X<3>!  .0000 

Radar  range,  Blue  1  to  Red  4  is  311697.53  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.29  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  174.81  degrees. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position!  X ( 1 ) !  10094500.00  X<2>!  10484020.00  X(3>!  -2300.00 

Velocity!  X(l)!  -.0712  X(2>!  -.9975  X  *!  3 ) !  .0000 

Radar  range,  Blue  1  to  Red  5  is  313023.25  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.24  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  174.89  degrees. 

Red  6  Mission  Code  118  Speed  700.00  fps.  Time  530.00 

Position!  X( 1 > !  10094600.00  X<2>!  10435416.00  X<3>!  -2500.00 

Velocity!  X<1)!  -.0712  X<2>!  -.9975  X<3> !  .0000 

Radar  range,  Blue  1  to  Red  6  is  314349.75  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.19  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  174.96  degrees. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position!  XU)!  10094700.00  X  ( 2 ) !  10486812.00  X<3)!  -2700.00 

Velocity!  X(l)!  -.0712  X<2)!  -.9975  X  <  3 ) !  .0000 

Radar  range,  Blue  1  to  Red  7  is  315677.00  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.14  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  175.04  degrees. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  530.00 

Position!  XU)!  10094800.00  X(2)I  10488208.00  X(3U  -2900.00 

Velocity!  XU>!  -.0712  X(2)!  -.9975  X  ( 3  > !  .0000 

Radar  range,  Blue  1  to  Red  8  is  317005.00  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -200  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.09  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  175.11  degrees. 

Red  9  Mission  Co<1p  114  Speed  850.00  fps,  Time  530.00 


Position:  X<1>:  10067200.00  X<2>:  10469960.00  X<3>  5  -11408.03 

Velocity:  X(l):  -.1416  X<2i J  -.9899  X(3)!  .0000 

Radar  range.  Blue  1  to  Red  9  is  306397,84  feet 
Radar  detection  limits  areJ 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees, 
elev  ction  is  1.60  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  169.32  degrees 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  530,00 

Position!  X(l>:  10068126.00  X<2>!  10471140.00  X<3>:  -11408.03 

Velocity:  X(l):  -.1416  X<2>:  -.9899  X(3>:  .0000 

Radar  range,  Blue  1  to  Red  10  is  307229.34  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.60  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  169.55  degrees 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  530.00 

Position:  X<1>:  10068040.00  X<2).‘  10475847.00  X(3>:  -14709.26 

Velocity:  X(l)!  -.1415  X(2>!  -.9999  XC3)!  .0000 

Radar  range,  Blue  1  to  Red  11  is  311658.53  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .97  degrees. 

Azimuth  limits  are.'  +/-  55.00  degrees.  Target  azimuth  169.80  degrees 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  530.00 

Position:  X<1>:  10068966.00  X<2>:  10477027.00  X(3)J  -J4709.26 

Velocity*.  X(  1 ) :  -.1414  X(2>*.  -.9899  X(3>:  .0000 

Radar  range,  Blue  1  to  Red  12  is  312500.75  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .97  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  170,03  degrees 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  530.00 

Position:  X(l):  9890558.00  X<2).*  10584250.00  X  <  3 ) :  -13026.68 

)  5  .18  41  X  <  2 ) :  -.9829  X(3)’.  .0000 

Radar  range,  Blue  1  to  Red  41  is  488448.06  feet 
Radar  detection  limits  are? 

Elevation}  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .82  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  153.66  degrees 

Red  42  Mission  Code  114  Speed  850.00  fps,  Time  530.00 

Position!  X(l):  9891056.00  X ( 2 ) :  10565665.00  X(3K  -13026.68 

Velocity:  X(l):  .1841  X<2) J  -.9829  X<3):  .0000 

Radar  range,  Blue  1  to  Red  42  is  489344.75  feet 
Radar  detection  limits  are? 

Elevation.*  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .82  degrees. 

Azimuth  limits  are.*  +/-  55.00  degrees.  Target  azimuth  153.80  degrees. 

Red  43  Mission  Code  114  Speed  850.00  fps,  T- me  530.00 

Position:  XU),*  9389463.00  X<2):  10590095.00  X  <  3 ) !  -19337.86 

Velocity:  X<1):  .1841  X<2)J  -.9829  X(3>.*  .0000 

Radar  range,  Blue  1  to  Red  43  is  493863. S8  feet 
Radar  detection  limits  arp: 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .08  degrees. 


Azimuth  limits  are?  +/-  55.00  degrees.  Tcrget  azimuth  153.94  degrees. 

Red  44  Mission  Code  114  Speed  850.00  fps?  Time  530.00 
Position?  X(l):  9890049.00  X<2>  J  10591510.00  X  <  3 ) J  -19337.86 

Velocity!  X(1)J  .1843  XC2 >:  -.9829  X<3>!  .0000 

Radar  range?  Blue  1  to  Red  44  is  494717.72  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  .08  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  154,08  degrees, 

*  As  expected?  the  radar  file  shows  no  detected  threats. 

The  ‘Flag  =  -2*  indicates  tne  aircraft  is  outbound  in  the  CAP. 

Nthrt  Blued)  =  0  TimeJ  530.00  Flag  =  -2?  Msn  Code  =  111 

Threat  Call  Signs  are!  00000 
Threat  Ranges  are:  999999.00  999999,00  999999.00  999999.00  999999.00 

Example  2.  Radar  Detection 


At  time  675.00  Blue  1  is  headed  back  inbound  to  the  CAP  point.  All  the 
targets  are  still  out  of  range,  even  though  they  are  within  the  angular 
limits  of  the  radar  search.  As  Blue  1  gets  closer  to  the  targets?  first 
one  and  then  more  of  them  are  detected.  Note  that  the  same  ones  are  not 
detected  on  every  sweep  until  fairly  close  range.  The  actual  radar 
operates  in  the  sane  manner. 


Blue  1?  Mission  Code  111?  Speed  585.00  fps?  Time  675.00 
Position:  X(l):  10163168.00  X(2)J  10117175.00  X  <  3 ) :  -20000.04 

Velocity:  XU)?  -.1322  X(2>:  .9912  X<3)  J  .0000 

Red  1  Mission  Code  118  Speed  700.00  fps?  Time  675.00 

Position:  X<  J ) J  10077422.00  X ( 2> :  10378993.00  X<3>!  -1500.00 

Velocity:  X(1)J  -.3396  X(2)J  -.9406  X(3)J  ,0000 

Radar  range?  Blue  1  to  Red  1  is  276121.88  feet 
Radar  detection  limits  are: 

Elevation}  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  3.84  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  10,54  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .560. 

Red  1  is  not  detected. 

Red  2  Mission  Code  118  Speed  700.00  fps?  Time  675.00 

Position.*  X(l>:  10077898,00  X(2>:  10380309.00  X<3)!  -1700.00 

Velocity:  X(1)J  -.3396  X  i  2 ) :  -.9406  X<3>.*  .0000 

Radar  range,  Blue  1  to  Red  2  is  277209.97  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -2.00  degrees?  Lower 

81 


8.00  degrees. 


Torget  elevation  is  3.79  degrees. 

Azimuth  limits  are*  +/-  55.00  degrees.  Target  azimuth  10.36  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .627. 

Red  2  is  not  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  675.00 
Position!  XUK  10078374.00  X<2>  J  10381625.00  X (3) t  -1900.00 

Velocity?  X < 1 ) :  -.3396  X<2>:  -.9406  X<3>:  .0000 

Radar  range*  Blue  1  to  Red  3  is  278300.97  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -2.00  degrees*  Lower  8.00  aegrees. 

Target  elevation  is  3.73  degrees. 

Azimuth  limits  are5  +/-  55.00  degrees.  Target  azimuth  10.18  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .574. 

Red  3  is  not  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps*  Time  675.00 

Position:  X(l>:  10078850.00  X<2>:  10382941,00  X(3)J  -2100.00 

Velocity*.  XU)I  -.3396  X<2>*.  -.9406  X<3>*.  .0000 

Radar  range,  Blue  1  to  Red  4  is  279394,88  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.67  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  10.00  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .068. 

Red  4  is  not  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps*  Time  675.00 

Position:  X(l)5  10079326.00  X(2)t  10384257.00  X<3)*.  -2300.00 

Velocity*.  X<1)*.  -.3396  X(2K  -.9406  X<3>:  .0000 

Radar  range.  Blue  1  to  Red  5  is  280491.66  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.62  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  9.83  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .455. 

Red  5  is  not  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps,  Time  675.00 

Position:  XU):  10079802.00  X<2).*  10385573.00  X(3)J  -2500.00 

Velocity:  X(1)J  -.3396  X<2){  -.9406  X<3):  .0000 

Radar  range,  Blue  1  to  Red  6  is  281591.22  feet 
Radar  detection  limits  are5 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.56  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  9,66  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .084, 

Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  675.00 

Position :  X(l):  10080278.00  X(2) J  10386889.00  X(3)J  -2700.00 

Velocity:  X(l)i  -.3396  X <2) :  -.9406  X ( 3 > :  .0000 

Radar  range,  Blue  1  to  Red  7  is  282693.63  feet 
Rada:  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.51  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees,  target  azimuth  9,48  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .774. 

Red  7  is  not  detected. 


Red  8  Mission  Code  118  Speed  700*00  fps,  Time  675.00 

Position  1  XU)!  10080754.00  X<2>!  10388205.00  X(3>!  -2900.00 

Velocity:  X<1>:  -.3396  X  <  2 )  J  -.9406  X(3){  .0000 

Radar  range,  Blue  1  to  Red  8  is  283798.78  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.45  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  9.31  degrees 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .012, 

Red  8  is  not  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  675.00 

Position:  X(l):  10049800,00  X(2K  10348015.00  X<3)!  -11408.03 

Velocity:  X(l>:  -.1417  X(2){  -,9990  X<3K  .0000 

Radar  range,  Blue  1  to  Red  9  is  257319.33  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1,91  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  18.56  degrees 

Probability  of  Radar  Detection  is  .106.  Random  number  is  .532. 

Red  9  is  not  detected. 

Red  10  Mission  Code  114  Speed  850.00  fps.  Time  675.00 

Position:  X(l):  10050726.00  X(2>!  10349195.00  X<3) J  -11408.03 

Velocity:  X(l):  -.1417  X<2)!  -.9899  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  10  is  257973.47  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.91  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  18.26  degrees, 

Probability  of  Radar  Detection  is  .100.  Random  number  is  .734, 

Red  10  is  not  detected. 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  675.00 

Position:  X<1)!  10050640.00  X < 2 > !  10353902.00  X < 3 >  J  -14709.26 

Velocity!  X(l):  -.1416  X<2) J  -.9899  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  11  is  262164.47  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.16  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  17.83  degrees, 

Probability  of  Radar  Detection  is  .065,  Random  number  is  .375. 

Red  11  is  not  detected. 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  675.00 

Position!  X(1)J  10051566,00  X<2>!  10355082.00  X(3)*  -14709.26 

Velocity!  XU)!  -.1414  X<2>!  -.9899  X<3>!  .0000 

Radar  range,  Blue  1  to  Red  12  is  262B35.97  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.15  degrees. 


Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth 


decrees. 


Probability  of  Radar  Detection  is  .060.  Random  number  is  .923. 
Red  12  is  not  detected. 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  675.00 
Position!  X(l>:  9913238.00  X<2>!  10463175.00  X(3>!  -13026.68 

Velocity!  X(l)!  .1841  X<2>!  -.9829  X ( 3 ) :  .0000 

Radar  range,  Blue  1  to  Red  41  is  426883.63  feet 


X 


Radar  detection  limits  are* 

Elevation*  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  .94  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  28.24  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .464. 

Red  41  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps?  Time  675.00 
Position:  X(l):  9913736.00  X(2)J  10464590.00  X(3)?  -13026.66 

Velocity:  X'.DJ  .1841.  X(2>:  -.9829  X  <  3 )  J  .0000 

Radar  range?  Blue  1  to  Red  42  is  427740.75  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  .93  degrees, 

ftzimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  28.08  degrees. 

Probability  of  Radar  Detection  is  .000.  Rondom  number  is  .311. 

Red  42  is  not  detected. 

Red  43  Mission  Code  114  Speed  850.00  fps?  Time  675.00 

Position:  X(l>:  9912143.00  X<2>:  10469020.00  X(3):  -19337.86 

Velocity:  X(1)J  .1841  X<2>:  -.9829  X<3)?  .0000 

Radar  range?  Blue  1  to  Red  43  is  432213.97  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  .09  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  27.91  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .030. 

Red  43  is  not  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps?  Time  675.00 

Position:  X(l):  9912814.00  X  <2) J  10470435.00  X(3>?  -19337.86 

Velocity:  X<1),*  .1843  X<2)?  -.9829  X<3>:  ,0000 

Radar  range?  Blue  1  to  Red  44  is  432978.28  feet 
Radar  detection  limits  are! 

Elevation?  Upper  -2.00  degrees?  Lower  8.00  degrees. 

Target  elevation  is  .09  degrees. 

/-  5  5.00  degre  es.  Target  azimuth  27.73  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .355. 

Red  44  is  not  detected. 


Nthrt  Blued)  =  0 

Time? 

675.00 

Flag  = 

2?  Msn  Code  =  111 

e?  0 

0 

0 

0  0 

Threat  Ranges  are? 

999999.00 

999999.00 

999999.00 

999999.00  9999*9. 00 

Nthrt  Blued  )  =  1 

Time? 

690.00 

Flag  = 

2?  Msn  Code  =  111 

Threat  Call  Signs  are?  1 

0 

0 

0  0 

Threat  Ranges  are? 

259391.98 

999999,00 

999999.00 

999999.00  999999,00 

Nthrt  Blued)  =  2 

Time? 

695,00 

Flaa  = 

2?  Msn  Code  ■  111 

Threat  Call  Signs  are?  10 

11 

0 

0  0 

Threat  Ranges  are: 

233161.16 

237226.93 

999997.00 

999799.00  997999,00 

Nthrt  Blued)  =  3 

Time? 

700.00 

Flag  = 

2?  Msn  Code  =  111 

Threat  Call  Signs  are!  9 

11 

7 

0  0 

Threat  Ranges  are? 

226536.91 

230248.92 

254679.70 

99*999.00  999997.00 

Nthrt  Blue(l)  =  3 

Time? 

705.00 

Flag  = 

2.  Msn  Code  =  111 
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Threat  Call  Signs  are!  9  2  7  0  C 

Threat  Ranges  are:  220552.22  243979.89  249168.13  999999.00  999999.00 

Nthrt  Blue(l)  =  4  Time:  710.00  Flag  =  2,  Hsn  Code  =  111 

Threat  Call  Signs  aret  9  10  4  60 

Threat  Ranges  are:  214636.09  215140.80  240602.84  242658.27  999999,00 

Nth"t  Bleed )  =  5  Time:  715.00  Flag  =  2f  Hsn  Code  =  111 

Threat  Call  Signs  are!  *9  10  11  6  8 

Threat  Ranges  are!  208794.33  209272.11  210295.05  237231.84  239278.33 

Nthrt  Bleed)  =  5  Time:  720.00  Flag  =  2,  Hsn  Code  =  111 

Threat  Call  Signs  are!  93468 
Threat  Ranges  are,'  203033,36  228847.50  229842.81  231846.48  233867.16 

Nthrt  Blued)  =  7  Time:  725.00  Flag  =  2,  Hsn  Code  =  111 

Threat  Call  Signs  are:  12  11  9  1  5 

Threat  Ranges  are:  195993.63  196416.89  197360.27  221601.33  225515.16 

Example  3.  Radar  Detection 


At  a  range  of  less  than  200,000  feet  the  fighter  is  released  from  the  CAP 
and  begins  an  intercept  and  attacK  on  the  closest  target.  A  Hission  Code 
of  120  and  a  ’Flag  =  1'  indicates  the  fighter  is  running  an  intercept  but 
is  not  locked  on  to  a  target,  so  the  radar  is  still  searching.  The  radar 
scan  pattern  is  oriented  along  the  line  of  sight  from  the  fighter  to  the 
nearest  target,  as  indicated  by  the  changed  elevation  limits. 


Blue  1  committed  from  CAP  1,  Time:  726.00 
Blue  1,  Hission  Code  120,  Speed  610.00  fps,  Time  730.00 
Position:  X(D!  10157900.00  X<2):  10148818,00  X(3>:  -19930.11 

Velocity.*  X(l):  -.4728  X  ( 2 )  :  .8808  X  <  3 ) :  .0233 

Red  1  Hission  Code  118  Speed  700.00  fps,  Time  730.00 
Position:  Xd)J  10064332.00  X  <  2 )  J  10342803.00  X<3>:  -1500.00 

Velocity:  X(l)!  -.3396  X<2) J  -.9406  X(3K  .0000 

Radar  range,  Blue  1  to  Red  1  is  216159,25  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -5.96  degrees,  Lower  6.04  deqrpoc. 

Target  elevation  is  3.55  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  2.48  degrees. 

Probability  of  Radar  Detection  is  .449.  Random  number  is  .786. 

Red  1  is  not  detected. 

Code  118  Spee  d  700.00  fps,  Time  730.00 

Position:  X(1)I  10064308.00  X( 2) I  1034.119.00  X  <  3  > :  -1700.00 

Velocity:  X(1)J  -.3396  X ( 2 ) J  -.9406  X ( 3 ) :  .0000 


217119.64  feet 


Rodar  ronge,  Blue  1  to  Red  2  is 
Radar  detection  limts  are? 

Elevation:  Upper  -5.96  degrees*  Lower  6,04  degrees. 

Target  elevation  is  3.48  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  2.74  degrees. 

Probability  of  Radar  Detection  is  .441.  Random  number  is  .749, 

Red  2  is  not  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  730.00 
Position:  X<1>:  10065284,00  X(2)5  10345435.00  X(3)J  -1900.00 

Velocity:  X( 1 ) :  -.3396  X<2)?  -.9406  X(3;:  ,0000 

Radar  range*  Blue  1  to  Red  3  is  218084.97  feet 
Radar  detection  limits  areJ 

Elevation:  Upper  -5.96  degrees*  Lower  6.04  degrees. 

Target  elevation  is  3.40  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  3.00  degrees. 

Probability  of  Radar  Detection  is  .433.  Random  number  is  .641. 

Red  3  is  not  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  730.00 

Position!  X(l):  10065760.00  X(2)J  10346751.00  X(3)J  -2100.00 

Velocity:  X<1):  -.3396  X<2>:  -.9406  X<  3) J  .0000 

Radar  range,  Blue  1  to  Red  4  is  219055.16  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  3.33  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  3.26  degrees. 

Probability  of  Radar  Detection  is  .425.  Random  number  is  .745. 

Red  4  is  not  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  730.00 

Position:  X(l):  10066236.00  X(2>?  10348067.00  X(3)J  -2300.00 

Velocity?  X  < 1 ) :  -.3396  X(2>J  -.9406  X  <  3  >  J  .0000 

Radar  range,  Blue  1  to  Red  5  is  220030.17  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  3.26  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  3.52  degrees. 

Probability  of  Radar  Detection  is  .416.  Random  number  is  .785. 

Red  5  is  not  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps,  Time  730.00 

Position:  X < 1 ) :  10066712.00  X < 2 >  J  10349383.00  X(3)?  -2500.00 

Velocity:  X < 1 ) :  -.3396  X ( 2 >  t  -.9406  X(3)?  .0000 

Radar  range,  Blue  1  to  Red  6  is  221009,91  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -5.96  degrees,  Lower  6:04  degrees. 

Target  elevation  is  3.18  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  3.78  degrees. 

Probability  of  Radar  Detection  is  .408.  Random  number  is  .527. 

Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  730.00 

Position?  X<1>:  10067188.00  X<2>.’  10350699.00  X(3U  -2700.00 

Velocity?  X(l):  -.3396  X(2>:  -.9406  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  7  is  221994,33  feet 
Radar  detection  limits  areJ 

Elevation?  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  3.11  degrees. 

86 


Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  4.03  degrees. 

Probability  of  Radar  Detection  is  .400.  Random  number  is  .481. 

Red  7  is  not  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  730.00 

Position!  X(l)!  10067664.00  X(2>5  10352015.00  X<3)!  -2900.00 

Velocity!  XU>!  -.3396  X(2)I  -.9406  X  <  3) !  .0000 

Radar  range,  Blue  1  to  Red  8  is  222983.36  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -5.9o  degrees,  Lower  6.04  degrees. 

Target  elevation  is  3.04  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  4.28  degrees. 

Probability  of  Rader  Detection  is  .392.  Random  number  is  .768. 
hed  8  is  not  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  730.00 

Position!  X(l)!  10043200.00  X(2>!  10301760.00  X  C  3  > !  -11403.03 

Velocity!  X(l)!  -.1417  X<2>!  -.989?  X ( 3  > !  .0000 

Radar  range,  Blue  1  to  Red  9  is  191363.45  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  1.22  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  8.64  degrees. 

Probability  of  Radar  Detection  is  .655.  Random  number  is  .627. 

Red  9  is  detected. 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  730.00 

Position!  X (1 ) !  10044126.00  X(2>5  10302940.00  X(3>!  -11408.03 

Velocity!  X(l>!  -.1417  X(2>!  -.9899  X(3)5  .0000 

Radar  range,  Blue  1  to  Red  10  is  191756.98  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  1.21  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  8.21  degrees. 

Probability  of  Radar  Detection  is  .652.  Random  number  is  .785. 

Red  10  is  not  detected. 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  730.00 

Position!  X(l)!  10060232.00  X<2>!  10310758.00  X(3)!  -15309.75 

Velocity!  X(l)!  .5163  X<2)!  -.8561  X  <  3  > !  -.0244 

Radar  range,  Blue  1  to  Red  11  is  189169.11  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  ,06  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  2.87  degrees. 

Probability  of  Radar  Detection  is  .674.  Random  number  is  .121. 

Red  11  is  detected. 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  730.00 

Position!  XU)!  10063848.00  X(2)  5  10312403.00  X  <  3 ) !  -15406.52 

Velocity!  X(l)!  .5163  X(2)!  -.8561  X(3)!  -.0244 

Radar  range,  Blue  1  to  Red  12  is  188749.30  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -5.96  degrees.  Lower  6.04  degrees. 

Target  elevation  is  .04  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  1.67  oegrees. 

Probability  of  Radar  Detection  is  .677.  Random  number  is  .939. 

Red  12  is  not  detected. 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  730.0"' 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS  1%-  A 


position:  X  ( 1  :  9921841.00  X(2)t  1041723C.00  X(3.'J  -13026.68 

Velocity:  X(l):  .1841  X<2>:  -.9829  X(3)J  ,0000 

Radar  range,  flue  1  to  Red  41  is  357529.38  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -5.96  degrees*  Lower  6.04  degrees. 

Target  elevation  is  -.23  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  13.10  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .617. 

Red  41  is  not  detected^ 

Red  42  Mission  Code  114  Speed  850,00  fps,  Time  730.00 
Position?  X< 1 ) t  9922339.00  X<2>!  1041S665.00  X(3;J  -13026.68 

Velocity:  X  < 1 ) :  .1841  X<2>:  -.9529  X(3)J  .0000 

Radar  range.  Blue  1  to  Red  42  is  358265.34  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  -.23  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  12.89  degrees. 

Probability  of  Radar  Detection  is  .000,  Random  number  is  .756. 

Red  42  is  not  detected. 

Red  43  Mission  Code  114  Soeed  850.00  fps,  Time  730.00 

Position:  X(l>:  9920746.00  X(2>!  10423095.00  X(3)J  -19337.86 

Velocity:  X  < 1 ) :  .1841  X(2)J  -.9829  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  43  is  362588.25  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.96  degrees,  Lower  6,04  degrees. 

Target  elevation  is  -1.24  degrees. 

Azimuth  limits  ore:  +/-  55.00  degrees.  Target  azimuth  12.62  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .922. 

Red  43  is  not  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps,  Time  730.00 

Position:  X< 1 )  1  9921449,00  X(2K  10424510.00  X  <  3 ) :  -19337.86 

Velocity!  X<1):  .1843  X(2>:  -.9829  X(3K  .0000 

Rador  range,  Blue  1  to  Red  44  is  363201.75  feet 
Radar  detection  limits  areJ 

Elevation,*  Upper  -5.96  degrees,  Lower  6.04  degrees. 

Target  elevation  is  -1,24  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  12.39  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .014. 

Red  44  is  not  detected. 


Nthrt  Blued)  =  2  TimeJ 

Threat  Call  Signs  are:  11 
Threat  Ranges  are:  189169.11 


730.00 

9 

191363,45 


Flag  =  1,  Msn  Code  =  120 

0  0  0 
999999.00  999999.00  899999.00 


Example  4.  Radar  Detection 


In  Example  4  above,  none  of  the  low  targets  were  detected  because  cf  a 
run  of  'high*  random  numbers.  In  turning  to  an  intercept  heading  for  Red 
11,  the  fighter  put  all  the  targets  .just  outside  the  limits  of  the  radar, 


88 


cs  will  be  seen  in  the  following  figure*  and  no  targets  are  detected  on  the 
next  radar  sweep.  This  causes  the  fighter  to  be  reassigned  to  the  CAP 
(Mission  Code  111) . 


Blue  1*  Mission  Code  120,  Speed  635.00  fps,  Time  735.00 
Position:  X(l)!  10155098.00  X<2>:  10148996.00  X(3) I  -19828.59 

Velocity!  X(l):  -.9931  X<2):  -.1117  X<3)?  .0348 

Red  1  Mission  Code  118  Speed  700.00  fps,  Tine  735.00 

Position:  XU)}  10063142.00  X(2)J  10339513.00  X(3K  -1500.00 

Velocity:  X(l):  -.3396  X<2):  -.9406  X(3)5  .0000 

Radar  range,  Flue  1  to  Red  1  is  212340.70  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.95  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  70.65  degrees. 

Red  2  Mission  Code  118  Speed  700.00  fps,  Time  735.00 

Position:  XU):  10063618.00  X<2) :  10340829.00  X(3>!  -1700.00 

Velocity:  X(l):  -.3396  X(2)J  -.9406  X<3>?  .0000 

Radar  range,  Blue  1  to  Red  2  is  213300.58  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.88  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees,  "arget  azimuth  70.92  degrees. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  735.00 

Position:  XU):  10064094.00  X(2>?  10342145.00  X(3)J  -1900.00 

Velocity:  X(l):  -.3396  X<2):  -.9406  X  <  3 ) J  .0000 

Radar  range,  Blue  1  to  Red  3  is  214265.48  feet 
Radar  detection  limits  are! 

Elevation?  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.80  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  71.19  degrees. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  735.00 

Position?  XU):  10064570.00  X  <2 )  J  10343461.00  X  ( 3  >  ?  -2100.00 

Velocity:  X(l)?  -.3396  X(2)J  -.9406  X ( 3 ) :  .0000 

Radar  range,  Blue  1  to  Red  4  is  215235.34  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.73  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  71.46  degrees. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  735.00 

Position?  XU)?  10065046.00  X  <  2  >  ?  10344777.00  X<3>?  -2300.00 

Velocity?  XU):  -.3396  X(2)J  -.9406  X(3):  .0000 

Radar  range,  Blue  1  to  Red  5  is  216210.13  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.65  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  71.72  degree®. 

Red  6  Mission  Code  118  Speed  700.00  fps,  Time  735.00 

Position:  XU).*  10065522,00  X  ( 2 )  J  10346093.00  X  <  3 )  ?  -2500.00 

Velocity:  X(1)J  -.3396  X  <  2  >  J  -.9406  *(3)J  .0000 


217189.70  feet 


Ffodar  range*  Blue  1  to  Red  6  is 
Radar  detection  lii.its  are: 

Elevation:  Upper  -6.59  degrees.  Lower  5.41  degrees. 

Target  elevation  is  2.58  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  71.98  degrees 

Red  7  Mission  Code  118  Speeo  700.00  fps,  Time  735.00 

Position?  XU):  10065998.00  X<2>:  10347409.00  X<3)J  -2700,00 

Velocity:  X(l):  -.3396  X!2>:  -.9406  X(3)J  .0000 

Radar  range.  Blue  1  to  Red  7  is  218174.05  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.51  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  72.24  degrees 

Red  8  Mission  Code  2.18  Speed  700.00  fns,  Time  735.00 

Position:  X(l):  10066474.00  X<2>:  10348725.00  X(3):  -2900.00 

Velocity.4  XU):  -.3396  X<2):  -.9406  X<3  > :  .0000 

Radar  range,  Blue  1  to  Red  8  is  219163.09  feet 
Radar  detection  limits  are: 

Elevation!  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  2.43  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  72.49  degrees 

Red  9  Mission  Code  114  Speed  850.00  fps.  Time  735.00 

Position:  X(l):  10042600.00  X (2  >  J  10297555.00  X(3>:  -11408.03 

Velocity.*  XU)J  -.1417  X<2):  -.9899  X<3>.*  .0000 

Radar  range,  Blue  1  to  Red  9  is  186538.16  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  .59  degrees. 

/-  5  5.00  degre  es.  Target  azimuth  59.28  degrees. 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  735.00 

Position!  XU):  10043526.00  X(2>:  10298735.00  X(3>:  -11408.03 

Velocity:  X(l)5  -.1417  X<2).’  -.9899  X(3)J  .0000 

Radar  range.  Blue  1  to  Red  10  is  186925.08  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  .59  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  59,73  degrees. 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  735.00 

Position:  XU):  10059422.00  X<2>.*  10306588.00  X(3)J  -15309,75 

Velocity!  XU):  -.1903  X(2)J  -.9817  X<3):  .0000 

Radar  range,  Blue  1  to  Red  11  is  184416.80  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  -.59  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  65. t6  degrees. 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  735.00 

Position:  XU):  10066043.00  X<2):  10308763.00  X< 3 )  5  -15510.33 

Velocity:  XU):  .5163  X < 2 > :  -.8561  X(3K  -.0244 

Radar  range,  Blue  1  to  Red  12  is  182961.56  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degree*. 

Target  elevation  is  -.64  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  62,23 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  735.00 


Position:  XU).'  9922623. 00  X<2)!  10413075.00  X<3)!  -13026.68 

Velocity  XU)!  .1841  X<2>.*  -.9829  X'3)J  .0000 

Radar  range,  Blue  1  to  Red  41  is  351892.91  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees*  Lower  5.41  degrees. 

Target  elevation  is  -.89  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  55.06  degrees. 

Red  42  Mission  Code  114  Speed  850.00  fps,  Time  735.00 
Position:  X(l):  9923121*,00  X(2>!  10414490.00  X  <  3 ) !  -13026.68 

Velocity:  X<1)!  .1841  X<2) J  -.9829  X<35!  .0000 

Radar  range,  Blue  1  to  Red  42  is  352628.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  -.89  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  55.27  degrees. 

Red  43  Mission  Code  114  Speed  850.00  fps,  Time  735.00 

Position.*  X  <  1 ) :  9921528.00  X(2K  10418920.00  X(3)J  -19337.86 

Velocity:  X< 1 ) :  .1841  X<2>:  -.9829  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  43  is  356951.19  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  -1.91  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  55.55  degrees. 

Red  44  Mission  Code  114  Speed  850.00  fps,  Time  735.00 

position:  xu>:  9922234.00  x < 2 > :  10420335.00  x<3>:  -19337.86 

Velocity:  X<1>*.  .1843  X\2)i  -.9829  X(3)I  .0000 

Radar  range,  Blue  1  to  Red  44  is  357562.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -6.59  degrees,  Lower  5.41  degrees. 

Target  elevation  is  -1.91  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  55.78  degrees, 

Nthrt  Blued)  =  0  Time!  735.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are!  00000 
Threat  Ranges  are!  999999.00  999999.00  999999.00  999999.00  999979,00 

Example  5.  Radar  Detection 


In  turning  bacK  to  the  CAP,  the  fighter  detects  the  targets  again  and  be¬ 
gins  another  intercept,  as  seen  in  Example  6: 


Blue  1,  Mission  Code  111,  Speed  610.00  fps,  Time  740.00 
Position:  Xd>:  10152160.00  X<2>:  10149805.00  X<3) :  -19732.22 

Velocity!  XU)J  -.8631  X(2)  5  .5044  X(3)J  .0268 

Red  1  Mission  Code  118  Speed  700.00  fps,  Time  740.00 
Position:  XU)5  10061952.00  X  ( 2 ) !  10336223.00  X  ( 3 ) !  -1500.00 

Velocity!  XU>:  -.3396  X  ( 2 )  J  -.9406  X<3)!  .0000 

Radar  range,  Blue  1  to  Red  1  is  207897.98  Oeet 
Radar  detection  limits  are! 
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8.00  degrees. 


Elevation?  Upper  -2.00  degrees,  Lower 
Target  elevation  is  3.49  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  33.68  degrees 

Probability  of  Radar  Detection  is  .518.  Random  number  is  .962. 

Red  1  is  not  detected. 

Red  2  Mission  Code  118  Speed  700.00  fps,  Time  740.00 
Position?  X  < 1 ) ?  10062428,00  X<2>?  10337539.00  X<3>?  -1700.00 

Velocity?  X(l)?  -.3396  X<2>?  -.9406  X<3)?  .0000 

Radar  range,  Blue  1  to  Red  2  is  208856.53  feet 
Radar  detection  limits  are! 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.41  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  34.15  degrees. 

Probability  of  Radar  Detection  is  .510.  Random  number  is  .231. 

Red  2  is  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  740.00 

Position!  XU)!  10062904.00  X<2>!  10338855.00  Xv3>!  -1900.00 

Velocity!  X(l)!  -.3396  X<2>!  -.9406  X<3)!  .0000 

Radar  range,  Blue  1  to  Red  3  is  209820.22  feet 
Radar  detection  limits  are? 

Elevaticn!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.34  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  34.43  degrees. 

Probability  of  Radar  Detection  is  .501.  Random  number  is  .126. 

Red  3  is  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  740.00 

Position?  XU)!  10063380.00  X(2>!  10340171.00  X<3)!  -2100.00 

Velocity?  XU)!  -.3396  X(2>!  -.9406  X ( 3 )  J  .0000 

Radar  range,  Blue  1  to  Red  4  is  210788.98  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.26  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  34.70  degrees. 

Probability  of  Radar  Detection  is  .493.  Random  number  is  .407. 

Red  4  is  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  740.00 

Position!  XU)!  10063856.00  X<2>!  10341487.00  X(3)!  -2300.00 

Velocity!  X(l>!  -.3396  X<2>!  -.9406  X(3>!  .0000 

Radar  range,  Blue  1  to  Red  5  is  211762.77  feet 
Radar  detection  limits  ore! 

Elevation!  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.18  degrees. 

Azimuth  limits  are!  +/-  55,00  degrees.  Target  azimuth  34.97  degrees. 

Probability  of  Radar  Detection  is  .485.  Random  number  is  .001. 

Red  5  is  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps,  Time  740.00 

Position!  XU)!  10064332.00  X(2K  10342803.00  X(3)!  -2500.00 

Velocity!  X(l)!  -.3396  X<2>!  -.9406  X < 3 > !  .0000 

Radar  range,  Blue  1  to  Red  6  is  212741.48  feet 
Radar  detection  limits  are! 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degree?. 

Target  elevation  is  3.11  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  35.23  degrees. 

Probability  of  Radar  Detection  is  .477.  Random  number  i?  ,709. 


Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  740.00 
Position:  X<  1 )  i  10064808.00  X(2)t  10344U9.00  X(3)J  -2700.00 

Velocity:  X(l):  -.3396  X(2K  -.9406  X<3):  .0000 

Radar  range,  Blue  1  to  Red  7  is  213725.06  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  3.03  degrees. 

Azimuth  limits  areJ  +/-  -55.00  degrees.  Target  azimuth  35.49  degrees. 
Probability  of  Radar  Detection  is  .469.  Random  number  is  .013. 

Red  7  is  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  740.00 

Position :  X(l):  10065284.00  X<2) :  10345435.00  X<3>:  -2900.00 

Velocity?  X<J):  -.3396  X<2)?  -.9406  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  8  is  214713.45  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -2. 00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  2.96  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  35.76  degrees. 

Probability  of  Radar  Detection  is  .461.  Random  number  is  .266. 

Red  8  is  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X<  1  > :  10042000.00  X<2>:  10293350.00  X(3>*.  -11408.03 

Velocity?  X(l):  -.1417  X<2>?  -.9899  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  9  is  181134.44  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.10  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  22.20  degrees. 

Probability  of  Radar  Detection  is  .741.  Random  number  is  .148. 

Red  9  is  detected. 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l):  10042926.00  X<2>:  10294530.00  X(3).‘  -11408.03 

Velocity:  X< 1 ) J  -.1417  X(2>:  -.9899  X (3  > :  .0000 

Radar  range,  Blue  1  to  Red  10  is  181512.22  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  1.09  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  22.66  degrees. 

Probability  of  Radar  Detection  is  .737.  Random  number  is  .467. 

Red  10  is  detected. 

Red  11  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position:  X(l>:  10058612.00  X(2) 5  10302418.00  X(3>:  -15309.75 

Velocity:  X(1)J  -.1903  X<2>  5  -.9817  X<3>:  .0000 

Radar  range,  Blue  1  to  Red  11  is  179057.30  feet 
Rador  detection  limits  are: 

Elevation!  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.12  degrees. 

Azimuth  limits  are:  47-  55.00  degrees.  Target  azimuth  28.19  degrees. 

Probability  of  Radar  Detection  is  .758.  Random  number  is  .712. 

Red  11  is  detected. 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  740.00 

Position!  X<1>:  10068238.00  X ( 2 ) :  10305123.00  X<3)J  -15614.13 

Velocity:  X<1>:  .5163  X < 2 > :  -.3561  X < 3 ) :  -.0244 
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176588.63  feet 


Radar  range*  Blue  1  to  Red  12  is 
Radar  detection  limits  ore? 

Elevation?  Upper  -2.00  degrees*  Lower  8.00  degrees. 

Target  elevation  is  -.20  degrees. 

Azimuth  linits  are?  +/-  55.00  degrees,  Target  azimuth  31.32  decrees. 

Probability  of  Radar  Detection  is  .778.  Random  number  is  .687. 

Red  12  is  detected. 

Red  41  Mission  Code  114  . Speed  850. 00  fps*  Time  740.00 

Position?  X< 1 > :  9923405.00  X<2>?  10408900.00  X(3)?  -13026.68 

Velocity?  Xd>?  .1841  X<2>?  -.9829  X<3>?  .0000 

Radar  range*  Blue  1  to  Red  41  is  345693.56  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.42  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  18.26  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .284. 

Red  41  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps*  Time  740.00 

Position?  X ( 1 ) ?  9923903.00  X(2>?  10410315.00  X  <  3  >  ?  -13026.68 

Velocity?  XU>?  .1841  X<2>?  -.9829  X<  3) ?  .0000 

Radar  range,  Blue  1  to  Red  42  is  346427.03  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -.43  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  18.47  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .610, 

Red  42  is  not  detected. 

Red  43  Mission  Code  114  Speed  S50.00  fps,  Time  740.00 

Position?  X( 1 ) ?  9922310.00  X<2)?  10414745,00  X<3>?  -19337.86 

Velocity?  X(l)?  .1841  X<2>?  -.9829  X  <  3) ?  .0000 

Radar  range*  Blue  1  to  Red  43  is  350748.31  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -1.47  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  18.76  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .392. 

Red  43  is  not  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps*  Time  740,00 

Position?  X< 1 ) ?  9923019.00  X<2>?  10416160.00  X <3>  ?  -19337.86 

Velocity?  X ( 1 ) ?  .1843  X<2>?  -.9829  X<3>?  .0000 

Radar  range,  Blue  1  to  Red  44  is  351355.59  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees*  Lower  8.00  degrees. 

Target  elevation  is  -1.47  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  18.99  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .241. 

Red  44  is  not  detected. 

Nthrt  Blued)  =  10  Time?  740.00  Flag  =  1*  Msn  Code  =  111 

Threat  Call  Signs  are?  12  11  9  10  2 

Threat  Ranges  are?  176583.63  179057.30  181134.44  181512.22  206856.! 


Example  6.  Radar  Detection 


Picking  up  the  intercept,  the  fighter  will  continue  it  until  reaching 
lock-on  range  of  90,000  feet  (15  Nautical  Miles).  The  pilot  normally  does 
this  to  get  as  much  information  as  possible  about  the  tactical  situation  in 
front  of  hi*,  As  soon  as  he  locks  on,  the  radar  begins  tracking  a  single 
target  and  he  gets  no  information  about  any  other  targets. 


Blue  1  committed  fro*  COP  1,  Time!  741.00 
Blue  1,  hission  Code  120,  Speed  635.00  fps,  Time  745.00 
Position:  X(l>:  10150856.00  X(2)J  10152644.00  X<3>:  -19664.34 

Velocity:  X<1)J  -.4182  X<2)  5  .9081  X(3)J  .0217 

Red  1  Mission  Code  118  Speed  700.00  fps,  Time  745.00 

Position:  X(l):  10060762.00  X(2>:  10332933.00  X(3) :  -1500.00 

Velocity}  X(l):  -.3396  X(2)J  -.9406  X<3):  .0000 

Radar  range,  Plue  1  to  Red  1  is  202363.53  feet 
Radar  detection  liiiits  are} 

Elevation.*  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  3.90  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  1.83  degrees. 

Probability  of  Radar  Detection  is  .564.  Random  number  is  .508. 

Red  1  is  detected. 

Red  2  Mission  Code  118  Speed  700.00  fps,  Time  745.00 

Position:  X(l):  10061238.00  X(2).*  10334249.00  X(3).*  -1700.00 

Velocity!  X(l).*  -.3396  X(2K  -.9406  X(3>:  .0000 

Radar  range,  Blue  1  to  Red  2  is  203308.83  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees.  Lower  6.09  degrees. 

Target  elevation  is  3.82  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  ozimuth  1.54  degrees. 

Probability  of  Radar  Detection  is  .556.  Random  number  is  ,465, 

Red  2  is  detected. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  745.00 

Position:  XU):  10061714.00  X(2)J  10335565.00  X(3)J  -1900.00 

Velocity:  X(l):  -.3396  X(2)J  -.9406  X  <  3 ) J  .0000 

Radar  range,  Blue  1  to  Red  3  is  204259.55  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  3.74  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  1,26  degrees. 

Probability  of  Radar  Detection  is  .548,  Random  number  is  .535. 

Red  3  is  detected. 

Red  4  Mission  Code  118  Speed  700.00  fps,  Time  745.00 

Position:  X(l):  10062190.00  X \ 2 ) :  10336881.00  X ( 3 ) J  -2100.00 

Velocity}  X(l):  -.3396  X ( 2 ) :  -.9406  X ( 3  > :  .0000 

Radar  range,  Blue  1  to  Red  4  is  205215.59  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  3.66  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  .97  degrees. 


Probability  of  Radar  Detection  is  ,540#  Rcncom  number  is  .316. 

Red  4  is  detected. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  745.00 
Position:  X(l):  10062666.00  X<2>:  10338197.00  X(3)J  -2300.00 

Velocity:  X(l):  -.3396  X<2>:  -.9406  X(3>:  .0000 

Radar  range.  Blue  1  to  Red  5  is  206176.89  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  *3.58  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  .69  degrees. 

Probability  of  Radar  Detection  is  ,532.  Random  number  is  .624. 

Red  5  is  not  detected. 

Red  6  Mission  Code  118  Speed  700.00  fps.  Time  745.00 

Position:  XU):  10063142.00  X<2>:  10339513.00  X<3>:  -2500.00 

Velocity:  X(l):  -.3396  X(2>:  -.9406  X(3>:  .0000 

Radar  range,  Blue  1  to  Red  6  is  207143.39  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  3,50  degrees. 

Azimuth  limits  are5  +/-  55.00  degrees.  Target  azimuth  .42  degrees. 

Probability  of  Radar  Detection  is  .524.  Rondom  number  is  .856. 

Red  6  is  not  detected. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  745.00 

Position:  X(l):  10063618.00  X<2>:  10340829.00  X(3):  -2700.00 

Velocity?  X<1)J  -.3396  X (2) I  -.9406  X<3):  .0000 

Radar  range,  Blue  1  to  Red  7  is  208115.00  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees, 

Target  elevation  is  3.43  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  .14  degrees. 

Probability  of  Radar  Detection  is  .516.  Random  number  is  .530. 

Red  7  is  not  detected. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  745,00 

Position:  XU):  10064094.00  X(2)J  10342145.00  X  C  3 )  J  -2900.00 

Velocity:  XU)?  -.3396  X(2>:  -.9406  X(3>:  .0000 

Radar  range,  Blue  1  to  Red  8  is  209091.64  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  3.35  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  .12  degrees. 

Probability  of  Radar  Detection  is  .508.  Random  number  is  .343. 

Red  8  is  detected. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  745.00 

Position:  XU):  10041400.00  X(2)J  10289145,00  X(3>:  -11408.03 

Velocity:  XU).*  -.1437  X(2)J  -.9899  X<3):  .0000 

Radar  range,  Blue  1  to  Red  9  is  175160.80  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  1,45  degrees. 

Azimuth  limits  areJ  k/~  55.00  degrees.  Target  azimuth  14.00  degrees. 

Probability  of  Radar  Detection  is  .790.  Rondom  number  is  .448. 

Red  9  is  detected. 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  745.00 

Position:  X(l):  10042326.00  X  <  2 ) :  10290325.00  X ( 3 ) !  -11408.03 
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Velocity:  X  C 1 ) :  -.141?  X<2>:  -.9899  X(3>: 

Radar  range,  Blue  1  to  Red  10  is  175507.80  feet 
Radar  detection  limits  ore: 

Elevation:  Upper  -5.93  degrees,  Lower  6.09  degrees. 

Target  elevation  is  1.45  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  13.52  degrees. 

Probability  of  Radar  Detection  is  .787.  Random  numoer  is  .185. 

Red  10  is  detected. 

Red  11  Mission  Code  114*  Speed  850.00  fps,  Time  745.00 
Position:  X(l>:  10057802.00  X(2>*.  10298248.00  X<3>:  -15309.75 

Velocity:  X<1):  -.1903  X(2){  -.9817  X(3)I  .0000 

Radar  range,  Blue  1  to  Red  11  is  172854.09  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  .20  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  7.86  degrees. 

Probability  of  Radar  Detection  is  .810.  Random  number  is  .041. 

Red  11  is  detected. 

Red  12  Mission  Code  114  Speed  850.00  fps,  Time  745.00 

Position:  X(l):  10070433.00  X(2>.'  10301483.00  X<3>:  -15717.93 

Velocity:  X( 1 ) :  .5163  X(2)J  -.8561  X<3>:  -.0244 

Radar  range,  Blue  1  to  Red  12  is  169223.17  feet 
Radar  detection  limits  aret 

FlevationJ  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  .09  degrees. 

Azimuth  limits  areJ  +/-  55.00  degrees.  Target  azimuth  3.66  degrees. 

Probability  of  Radar  Detection  is  .840.  Random  number  is  .111. 

Red  12  is  detected. 

Red  41  Mission  Code  114  Speed  850.00  fps,  Time  745.00 

Position!  X(l):  9924187.00  X(2>:  10404725.00  X (3) :  -13026.68 

Velocity!  X(l):  .1841  X<2>:  -.9829  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  41  is  339068.91  feet 
Radar  detection  limits  are: 

Elevation?  Upper  -5.91  degrees,  Lower  6.09  degrees. 

Target  elevation  is  -.12  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  17.24  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .197. 

Red  41  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps,  Time  745.00 

Position:  X(l){  9924685.00  X(2K  10406140.00  X(3)J  -13026.68 

Velocity:  X(l):  .1841  X<2>:  -.9829  X<3) :  .0000 

Radar  range,  Blue  1  to  Red  42  is  339790.53  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -5.93  degrees,  Lower  6.09  degrees. 

Target  elevation  is  -.13  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  17.02  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .143, 

Red  42  is  not  detected. 

Red  43  Mission  Code  *  Spc  850.00  fps,  Time  745.00 

Position:  X< 1  )  5  99230°"  00  X(2>:  10410570.00  X < 3 ) J  -1933". 86 

Velocity:  X(1)J  .1841  -.9829  X(3K  .0000 

Radar  range,  Blue  1  to  Red  43  is  344096.44  feet 
Radar  detection  limits  are: 

Elevation:  UDper  -5.93  degrees,  Lower  6.09  degrees. 
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Target  elevation  is  -1*19  degrees. 

Azimuth  limits  are?  +/-  55.00  degrees.  Target  azimuth  16.72  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .589, 

Red  43  is  not  detected. 

Red  **  Mission  Code  114  Speed  850.00  fps*  Time  745.00 
Position:  X(1)J  9923804.00  X(2)J  10411985.00  X(3)J  -19237,86 

Velocity:  X<1)J  .1843  X<2>:  -.9829  X (3) J  .0000 

Radar  range*  Blue  1  to  Red  44  is  344688.97  feet 
Radar  detection  limits  are! 

Elevation:  Upper  -5.91  degrees*  Lower  6.09  degrees. 

Target  elevation  is  -1.19  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  16.48  degrees. 

Probability  of  Radar  Detection  is  .000.  Random  number  is  .502. 

Red  44  is  not  detected. 

Nthrt  Blued )  =  9  Time:  745.00  Flag  =  1 ,  Msn  Code  =  120 

Threat  Call  Signs  are?  12  11  9  10  1 

Threat  Ranges  are:  169223.17  172854.09  175160.80  175507.80  202363.53 

Nthrt  Biue(l)  *  10  Time!  750.00  Flag  *  1*  Msn  Code  =  120 

Threat  Call  Signs  are:  12  11  9  10  1 

Threat  Ranges  are:  161732.86  166591.95  169150.28  169463.94  196290.73 

Nthrt  Blue(l)  =  8  Time!  755.00  Flag  =  1*  Msn  Code  =  120 

Threat  Call  Signs  are:  12  11  9  10  1 

Threat  Ranges  are!  154117.22  160278.72  163113.44  163390.91  189547.84 

Nthrt  Blued)  =  11  Time:  760.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are!  12  11  9  10  1 

Threat  Ranges  are:  146376.23  153924.28  157063,48  157301.50  182635.72 

Nthrt  Blued)  =  11  Time:  765.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are:  12  11  9  10  1 

Threat  Ranges  are.’  138509.52  147540.41  151015.97  151210.86  175603,88 

Nthrt  Blued)  =  11  Time:  770.00  Flag  =  1*  Msn  Code  =  120 

Threat  Call  Signs  are:  12  11  9  10  2 

Threat  Ranges  are*.  130517.48  141141,70  144990.94  145138.58  169799.81 

Nthrt  Blued)  =  12  Time?  775.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are:  12  11  9  10  1 

Threat  Ranges  are:  122400.09  134745.69  139009.92  139105.59  161185.66 

Nthrt  Blued)  =  11  Time:  780.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are?  12  11  9  10  1 

Threat  Ranges  are!  114157.85  128374.32  133098.53  133136.98  153801.91 

Nthrt  Blue(l)  =  12  Time:  785.00  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  are?  12  11  10  9  1 

Threat  Ranges  are:  105790.29  122053.13  127263.70  127288.33  146303.27 

Nthrt  Blued)  =  12  Time:  790.0  Flag  =  1,  Msn  Code  =  120 

Threat  Call  Signs  aret  12  11  10  9  1 

Threat  Ranges  are:  97297.38  115814.35  121522.81  121617.20  178691.56 


Nthrt  Blued )  =  10  Time:  795.00  Flog  =  1,  Msn  Code  =  120 

Threat  Coll  Signs  ore:  12  11  10  9  3 

Threoi  Ranges  are;  88679.63  109698.57  115959.64  116130.99  133623.23 

Example  7.  Radar  Detection 


As  soon  os  the  range  is  less  than  90*000  feet*  the  radar  locKs  on  to  the 
nearest  target.  The  'Flag*  is  changed  to  *2*  and  information  is  provided 
about  only  the  locKed-up  target  as  shown  below  in  Example  8. 


Blue  1*  Mission  Code  120*  Speed  910.00  fps,  Time  800.00 
Position:  Xd>:  10132578.00  X(2>:  10191141.00  X(3)J  -18724.54 

Velocity:  X(l):  -.4360  X<2>:  .8997  X(3>:  .0223 

Nthrt  Blued)  =  1  Time:  800.00  Flag  =  2,  Msn  Code  =  120 

Threat  Call  Signs  are:  12  0  0  0  0 

Threat  Ranges  are.*  79936.53  999999.00  999999.00  999999.00  999999.00 

Example  8.  Radar  Detection 


When  the  fighter  is  within  tactical  missile  range  (see  Weapons  Employment* 
this  chapter)  a  missile  is  launched  and  the  'Flag*  is  changed  to  *3’*  indi¬ 
cating  a  radar  missile  in  flight.  The  radar  will  stay  locked  on  until  the 
missile  reaches  the  target*  (pilot  maneuvers  permitting)  so  the  missile  can 
track  the  target. 


Blue  1  launched  radar  missile  at  Red  12*  Range  47426.55*  Time:  819.00 

Blue  1*  Mission  Code  120*  Speed  1000.00  fps*  Time  820.00 
Position:  Xd)J  10124113.00  X(2K  10203407,00  X(3K  -18294.36 

Velocity:  X(D!  -.4754  X(2K  .8794  X(3K  .0233 

Nthrt  Blued)  *  1  Time!  820.00  Flag  =  3*  Msn  Code  =  120 

Threot  Call  Signs  are!  12  0  0  0  0 

Threat  Ranges  are:  43728.84  999999.00  999999.00  999999.00  999999.00 

Blue  1*  Mission  Code  120*  Speed  1000.00  fps,  Time  825.00 
Position:  Xd){  10121748.00  X(2>!  10212811.00  X<3>:  -18178.05 

Velocity:  X(1)J  -.4708  X  <  2  >  J  .8819  X ( 3  > :  .0232 

Nthrt  Blued)  =  1  Time,*  825.00  Flog  =  3*  Msn  Code  =  170 

Threat  Call  Signs  are.’  12  0  0  0  0 

Threat  Ranges  are:  34432.22  999999.00  999999,00  999999,00  999999.00 
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Blue  1»  Mission  Code  120,  Speed  1000.00  fps,  Time  8a0.00 
Position*.  X(l):  10119413.00  X<2>  J  10217232.00  X(3K  -18062.53 

Velocity:  X(1)J  -.4640  X(2)t  .8855  X(3)J  .0230 

Nthrt  Blued )  =  1  Time:  830.00  Flag  =  3,  Msn  Code  =  120 

Threat  Call  Signs  are:  12  0  0  0  0 

Threat  Ranges  are:  25236.29  999999.00  999999.00  999999.00  999999.00 

Blue  If  Mission  Code  120,  Speed  1000,00  fpst  Time  835.00 
Position :  X(l):  10117125.00  X<2> :  10221676.00  X(3>:  -17948.25 

Velocity!  XdK  -.4525  X(2K  .8915  X<3>  S  .0227 

Nthrt  Blued)  =  1  TimeJ  835.00  Flag  =  3,  Msn  Code  =  120 

Threat  Call  Signs  are:  12  0  0  0  0 

Threat  Ranges  are:  15994.70  999999.00  999999.00  999999.00  999999.00 


Red  12  shot  down  by  radar  missile, 

coord  N  10111699,00,  E  10233051.00  Time: 


840.00 


Example  9.  Radar  Detection 


After  the  missile  reaches  the  target,  the  radar  either  goes  back  to  search 
df  the  target  was  killed)  or  remains  locked  on  to  the  target.  In  this 
case  the  radar  returned  to  search,  as  seen  in  Example  10  below.  All  the 
close  targets  are  beneath  the  radar  search  pattern  as  indicated  by  the  tar 
get  elevation  numbers  well  in  excess  of  the  radar  elevation  settings.  The 
two  detected  targets  are  too  far  away  for  any  action  to  be  taken,  so  the 
fighter  is  reassigned  to  a  CAP  pattern  (Mission  Code  111). 


Blue  1,  Mission  Code  111,  Speed  995.00  fps,  Time  840.00 
Position:  Xd):  10115000.00  X(2)J  10226191.00  X(3)J  -17840.92 

Velocity:  Xd):  -.3599  X<2):  .9378  X<3>:  .0177 

Red  1  Mission  Code  118  Speed  700.00  fps,  Time  S40.C0 

Position,*  X(l):  10078432.00  X ( 2 ) :  10269149.00  X<3):  -1500.00 

Velocity:  X(l):  .2914  X(2)I  -.9566  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  1  is  58733.59  feet 
Radar  detection  limits  are: 

Flevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  15.10  degrees. 

Red  2  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position:  X(l):  10078024.00  X(2).*  10270439.00  X  f  3 ) :  -1700.00 

Velocity:  Xd):  .2914  X  ( 2 )  J  -.9566  X(3d  .0000 

Radar  range,  Blue  1  to  Red  2  is  59917.16  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 
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Target  elevation  is  14.58  degrees. 

Red  3  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position?  X < 1 ) :  10077616. CO  X<2>?  10771829.00  X ( 3 ) :  -1900.00 

Velocity.*  X  <  1 )  J  .2914  X(2>:  -.9566  X<3)  J  .0000 

Radar  ranges  Blue  1  tc  Red  3  is  61110.58  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  14.07  degrees. 

Red  4  Mission  Code  118 ^  Speed  700.00  fps,  Time  840,00 

Position:  X(J>:  10077208.00  X(2>.*  10273169.00  X f 3 ) :  -2100.00 

Velocity:  X(l):  .2914  X(2>:  -.9566  X  <  3 ) :  .0000 

Radar  range,  Blue  1  to  Red  4  is  62313.27  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  13.59  degrees. 

Red  5  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position:  X(l):  10076800.00  X  <2>  1  10274509.00  X(3)J  -2300.00 

Velocity:  X(l)5  .2914  X<2) :  -.9566  X<3).‘  .0000 

Radar  range,  Blue  1  to  Red  5  is  63524.71  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  13.12  degrees. 

Red  6  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position:  X(l):  10076392.00  X<2)  J  10275849.00  X<3>:  -2500.00 

Velocity:  X<1>:  .2914  X  <2>  J  -.9566  X<3)?  .0000 

Radar  range,  Blue  1  to  Red  6  is  64744.41  feet 
Radar  detection  limits  are! 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  12.66  degrees. 

Red  7  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position:  X(l):  10075984.00  X  <  2) J  10277189.00  X<3) ?  -2700.00 

Velocity:  X(1)J  ,2914  X<2>?  -.9566  X  <  3) :  .0000 

Radar  range,  Blue  1  to  Red  7  is  65971.90  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  12.23  degrees. 

Red  8  Mission  Code  118  Speed  700.00  fps,  Time  840.00 

Position:  X(D?  10075576.00  X<2>?  10278529.00  X<3>?  -2900.00 

Velocity?  X(l)?  .2914  X<2>?  -.9566  X(3)J  .0000 

Rador  range,  Blue  1  to  Red  8  is  67206.77  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  11.81  degrees. 

Red  9  Mission  Code  114  Speed  850.00  fps,  Time  840.00 

Position:  X(l):  10029967.00  X(2)J  10209250.00  X(3>J  -11403.03 

Velocity?  XU)?  -.1418  X < 2 )  ?  -.9899  X<3>?  .0000 

Radar  range,  Blue  1  to  Red  9  is  86942.45  feet 
Radar  detection  limits  are? 

Elevation?  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  3.23  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  80.17  degree 

Red  10  Mission  Code  114  Speed  850.00  fps,  Time  840.00 

Position!  XU)?  10030893.00  X<2>:  10210430.00  X(3)  5  -U408.03 

Velocity:  XU)?  -.1418  X(2)?  -.9899  X(3>?  .0000 


85832.46  feet 


Radar  range,  Flue  1  to  Red  10  is 
Radar  detection  liiiits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 
Target  elevation  is  3.28  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth 


degrees 


Red  11  Mission  Code  1 14  Speed  850.00  fps,  Time  840.00 
Position:  X(l):  10042412.00  X  <  2 )  t  10219018.00  X<3).‘  -15309.75 

Velocity:  XUK  -.1901  X(2)J  -.9818  X(3)5  .0000 

Radar  ringe,  Blue  1  to  Red  11  is  72985.45  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees.  Lower  8.00  degrees. 

Target  elevation  is  .97  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  74.55  degrees 

Red  41  Mission  Code  114  Speed  850.00  fps.  Time  840.00 

Position:  X<1):  9939046.00  X(2>:  10325400.00  X<3>:  -13026.68 

Velocity:  X(l):  .1841  X<2) :  -.9829  X<3K  .0000 

Radar  range.  Blue  1  to  Red  43  is  202053.00  feet 
Radar  detection  limits  are: 

Flevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .35  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  39.49  degrees 

Probability  of  Radar  Detection  is  .566.  Random  number  is  .818. 

Red  41  is  not  detected. 

Red  42  Mission  Code  114  Speed  850.00  fps,  Time  840,00 

Position:  X< 1 ) :  9939544.00  X<2>:  10326815.00  X<3>:  -13026.68 

Velocity:  X(1U  .1841  X<2>:  -.9829  X<3>:  .0000 

Radar  range?  Blue  1  to  Red  42  is  202319.48  feet 
Radar  detection  limits  are; 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  .35  degrees. 

Azimuth  limits  are!  +/-  55.00  degrees.  Target  azimuth  39.07  degree* 

Probability  of  Radar  Detection  is  .564.  Random  number  is  .113. 

Red  42  is  detected. 

Red  43  Mission  Code  114  Sneed  850.00  fps,  Time  840.00 

Position:  XU):  9940253.00  X(2K  10332655.00  X(3)J  -19324.88 

Velocity:  X(l):  .1768  X(2)I  -.9843  X(3)J  .0000 

Radar  range,  Blue  1  to  Red  43  is  204629.67  feet 
Radar  detection  limits  are: 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -1,43  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  37.55  degrees 

Probability  of  Radar  Detection  is  .545,  Random  number  is  .316. 

Red  43  is  detected. 

Red  44  Mission  Code  114  Speed  850.00  fps,  Time  840. CO 

Position:  XU):  9956210.00  X(2K  10343010.00  X(3)J  -19242.14 

Velocity?  XU):  .7730  X(2>:  -.6345  X<3) :  .0037 

Radar  range,  Blue  1  to  Red  44  is  197136.77  feet 
Radar  detection  limits  are? 

Elevation:  Upper  -2.00  degrees,  Lower  8.00  degrees. 

Target  elevation  is  -1.42  degrees. 

Azimuth  limits  are:  +/-  55.00  degrees.  Target  azimuth  32.58  degree* 

Probability  of  Radar  Detection  is  .607,  Random  number  is  .927. 

Red  44  is  not  detected. 

NLhrt  BlueU)  =  2  Time:  840.00  Flag  =  1,  Men  Code  =  11 


Threat  Call  Signs  are:  42  43  0  0  0 

Threat  Ranges  are:  202319.48  204629.67  999999.00  999999.00  999999.00 

Example  10.  _ Radar  Detection 

The  above  sequence  of  figures  shows  how  the  radar  detection  subroutine 
worKs  in  all  its  modes. 
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#  The  fighter's  velocity  vector  corresponds  to  the  CAF’  pcttern. 
The  airspeed  will  increase  to  1.2  *  target  ai-speed,  or 
840  fps.  The  fighter  will  descend  to  9500  ft  and  stay  ot 
that  altitude  until  approximately  3  NH  or  48,000'  and  then 
will  turn  to  point  directly  at  the  target*  Note  that  the 
fighter's  velocity  vector  does  not  precisely  match  the 
intercept  vector  (Int  vec)  because  he  is  maintaining 
his  altitude  and  the  intercept  vector  is  computed  for 
proceeding  directly  to  the  intercept  point. 


Blue  1  committed  from  CAP  1,  Time!  751.00 

Target  Red  1,  altitude  1500.00  ft.  Attack  will  be  from  above. 


Attack  altitude  9500.00  ft. 

Blue  1  intercepting  Red  1,  Range  32.61  NM,  Time  751.00 
Missile  Employment  Ranges  are! 


Radar  Missiles!  Max  Range! 

44297.73 

ft,  Mm 

Range!  12227.92 

Heat 

Missiles 

!  Max  Range! 

19466.89 

ft  Mm 

Range!  4856,22 

Intercept 

Calculations!  Ftr  Blue 

1.  Tgt  Red 

1,  Intcpt  in  180.17  seconds. 

Ftr  Speed 

585.00 

fps.  Tgt  Speed 

700.00  fps 

• 

Ftr  pos! 

x ( i ) ; ioi 

57393.00  X (2 ) ! 

10160675.00 

x  •;  3  > : 

-20000.04 

Oel ! 

x  ( l ) : 

-.1322  X < 2 ) ! 

.9912 

X  ( 3 ) ! 

.0000 

Tgt  pos! 

XU)  110060260.00  X ( 2 ) ! 

10329490.00 

x  <  3 ) : 

-1500.00 

Vel! 

X  ( 1 ) ! 

.0204  X< 2) ! 

-.9998 

X  ( 3 )  ! 

.0000 

Ftr  LOS! 

XU)! 

-.4965  X ( 2  > ! 

.8629 

X  ( 3  > ! 

.0946 

Int  vec! 

X<1) ! 

1 

QO 

'O 

'Vi 

X 

.4054 

X  ( 3 ) ! 

.  1755 

Target  Red  1*  altitude  1500.00  ft.  Attack  will  be  from  above. 

Attack  altitude  9500.00  ft. 

Blue  1  intercepting  Red  1,  Range  21.08  NM,  Time  803.00 
Missile  Employment  Ranges  are! 

Radar  Missiles!  Max  Range!  46592.45  ft.  Mm  Range!  12883.56 

Heat  Missiles!  Max  Range!  20450.34  ft  Mm  Range!  5129.40 

Intercept  Calculations!  Ftr  Blue  1,  Tgt  Red  1,  Intcpt  in  84.12  seconds 
Ftr  Speed  840.00  fps,  Tgt  Speed  700.00  fps. 


Ftr  pos! 

X(l)  !10133970.00 

X  ( 2 ) ! 

10185384.00 

X  < 3  > ! 

-9653.52 

Veil 

XU)!  -.6573 

X  <  2 ) ! 

.7537 

X  <  3 ) ! 

.0000 

Tgt  pos! 

X(l) ! 10070680 . 00 

X  <  2  > ! 

10294609.00 

X(3)  ! 

-1500.00 

Vel ! 

XU)!  .2914 

X(2>  I 

-.9566 

X  ( 3 )  * 

.0000 

Ftr  LOS! 

XU)!  -.5003 

X (2 ) ! 

.8634 

X  ( 3 ) ! 

,0645 

Int  vec! 

XU)!  -.6529 

X  ( 2 ) ! 

,7486 

X(3' ! 

.1154 

Blue  1  locking  on  to  Red  1,  Rangp  14.57  NM,  t x me  829.00 
Target  Red  1.  altitude  1500.00  ft.  Attack  will  be  *roni  above. 
Attack  altitude  9500.00  ft. 

Blue  1  intercepting  Red  1.  *ar.ge  14.57  NM,  Time  329,00 
Missile  Employment  Ranges  are! 
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Rodor  Missiles;  Max  Range!  46521.39  ft,  Min  Range!  12863.26 

Heat  Missiles!  Max  Range!  20419.88  ft  Min  Range!  5120.94 

Intercept  Calculations!  Ftr  Blue  1*  Tgt  Red  1,  Intcpt  in  58.26  second 
Ftr  Speea  840.00  fps,  Tgt  Speed  700.00  fps. 


Ftr 

pos! 

X(1 ) ! 101 19612.00 

X <: 2 )  !10201842.00 

x  ( 3 ) : 

-9653.52 

Vel ! 

XU)!  -.6579 

X( 2) !  .7531 

x<3) : 

.0000 

Tgt  pos! 

XU)!  10075984.00 

X<  2) ! 10277189.00 

x<3>: 

-1500.00 

Vel! 

XU)!  .2914 

X<2) *  -.9566 

X(3) : 

.0000 

Ftr 

LOS! 

XU)!  -.4989* 

X(2) !  .8616 

x :  3 ) : 

.0932 

Int 

vec ! 

XU)!  -.6487 

X(2) !  .7426 

X(3) ! 

.1666 

Target  Red  1,  altitude  1500.00  ft.  Attack  will  b»  fro*  above. 
Attack  altitude  9500.00  ft. 

Blue  1  intercepting  Red  1,  Range  7.60  NM,  Time  857.00 
Missile  Employment  Ranges  are! 

Radar  Missiles!  Max  Range!  46214.05  ft,  Min  Range!  12775.44 

Heat  Missiles!  Max  Range!  20288.16  ft  Min  Range!  5084.35 

Target  within  radar  range*  must  be  within  40  degrees  of  nose. 

Tgt  bears  13.6  degrees  off  nose. 


Blue  1  launched  radar  missile  at  Red  1*  Range  45621.90.  Time!  857.00 
Intercept  Calculations!  Ftr  Blue  1*  Tgt  Red  1,  Intcpt  in  29.65  second 
Ftr  Speed  840.00  fps,  Tgt  Speed  700.00  fps. 

Ftr  pos!  X( 1 ) ! 10103613.00  X(2) ! 10220103.00  X < 3 ) !  -9138.37 

Vel!  X< 1 )  J  -.6288  X(2)!  .7145  X ( 3 ) !  .3066 

Tgt  pos!  X ( 1 ) ! 10081900,00  X(2) 110257759.00  X(3)!  -1500.00 

Vel!  X<1)!  .2914  X  <  2) !  -.9566  X(3)!  .0000 

Ftr  LOS!  XU)!  -.4920  X<2>!  .8532  X(3>!  .1731 

Int  vec!  X(l)!  -.6288  X<2>!  .7145  X(3)!  .306A 


common/scoml/atrib  (100),dd(100),ddl(100),dtnow,ii  , »f  a,mstop  ,nc  In  r  , 
+  ncrdr ,  nprntf  nn run  »nnset,n tape  ,ss(  100) , ssl ( 100)  ,  tnext, In ow ,>:x(  100) 
common/ucoml/nsectr (6) , ncop  < 3)  ,nb  »nr ,  i thrt (24, 11 )  ,  thrt (24,  11 )  , 
+nthrt(24' , vthrt (24) , ivthrt(24 ) ,blue<3 ) , redb (3,3) , 

+3  trr (30, 1 1 ) ,thtrr (80,11 ) ,ntrr <80 ) , vtrr (80) » 

+ivtpp(80) 
coei»on/ucoBi2/db  (20? 
logical  db<20) 
equivalence  (nset ( 1 ) ,qset ( 1 ) ) 
dimension  nset(15000) 

* 

t  The  program  will  run  with  NSET/QSFT  dimensioned  to 
t  10,000.  but  multiple  runs  requipe  15,000. 

* 

common  qset( 15000) 

ncrdr=5 

nprnt=6 

ntape=7 

nnset=15000 

call  slam 

stop 

end 

* 

*tt*****%*tt******t*****t**Sub  routine  I ntlc ***********  if#*####**###**###* 
* 

subroutine  intlc 

common/scoml/atrib  < 100)  ,dd<  100)  ,ddl  <  100)  ,dtnow, n  ,mfa,mstip  ,nclnr, 
+  ncrdr,nprnt,nnpun,nnset,ntape,ss(  100) , ssl  <  100) ,  tn ext, tnow, ;•:>:(  100) 
common  q set (15000) 

common/ucoml/nsectr (o )  ,ncap (3)  »nb,nr» ithrt (24, 1 1 ) , thrt (24, 11 ) , 
+nthrt(24) , vthrt (24) , i vthrt (24) , blue (3) , redb (3, 3) , 
+itrr(80,ll),thtrr(80,ll),ntrr(80),vtrr(80), 
fivtrr (80) 
co»mon/ucom2/db (20) 
logical  db<20) 
dimension  a(10),b(10) 

data  thrt/  2&4#999999/vthrt/24*555555/nsectr/6*0/ncap/3*0/ 

1  ithrt/264*0/nthrt/24X0/ivthrt/24*0/ 

2  itrr , l vtrr, thtrr, vtrr/ 1920*0/ntrr/80*0/ 
ssl(l)=l 

ssl (2)=1 

* 

t  The  fdb*  array  is  used  to  turn  write 

*  statements  on  and  off. 

* 

* 

*  When  ’db ( 1 )  ’  is  .true,  the  contents  of  all  the 

*  files  are  printed  before  exiting  from  Intlc. 

data  a,b/20*0/db/20*.false./ 
db<5)  =  .true. 


*•  * 


nb=24 

nr=80 

* 

*  *nb*  and  'nr*  are  the  number  of  Blue  and  the 

*  number  of  Red  aircraft  available. 

* 

do  32  jJ  =  1,14 
xx(.jl)  =  0 
32  continue 
xx  <  1 )  =  4 
>;x  ( 2 )  =  16 

XX(1)  and  XX(2)  are  the  number  of 

*  Blue  and  Red  aircraft  involved 

*  in  the  simulation  run. 

* 

blued)  *  10e6 
blue<2)  =  10e6 
blue(3)  =  0 

* 

*  ‘blue’  is  an  array  which  holds  the  coordinates 

*  of  the  blue  airrfield. 

* 

a ( 1 ) =10e6 
a(2)=10e6 
do  12  .j  1  =  l,nb 
call  fiiem(l,a) 

12  continue 

* 

*  The  aero  information  ond  operational  files 

*  are  initialized  with  the  values  the 

*  aircraft  would  have  sitting  on  the  base. 

* 

a(l)=0 

*  The  first  element  will  be  the  wmgman's  call  sign. 

a(2)=14500 

*  Second!  fuel  load  in  pounds. 

a<3>=4 

*  Third:  number  of  radar  missiles. 

a<4)=4 

*  Fourth?  number  of  heatseeKing  (IR)  missiles. 

a<5)=9 

*  Fifth:  number  of  seconds  of  cannon  fire. 

a  <  9)=4 

*  Ninth:  mission  flag  (4  denotes  departing  base). 

ad0)  =  110 

*  Tenth:  mission  code  <110  is  available  for  flight). 

do  14  il=l,nb 
call  filem(2,a) 

14  continue 

do  10  il  =  l  ,nb 
call  filem(3,b) 

10  continue 

* 
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»  File  3  is  initialled  to  zero. 

* 

*  File  3  will  hold  information  on  radar  missiles 

i  fired  by  blue  aircraft. 

* 

do  16  i 2= 1 ,nr 
call  filem(8-b) 

16  continue 

* 

*  File  8  will  hold  information  on  radar 

*  missiles  fired  by  red  aircraft. 

* 

redb (1,1)  =  10.12e6 
redb (1,2)  =  10.84e6 
redb (1,3)  =  0 

* 

*  The  'redb*  array  holds  the  coordinates 

*  of  the  red  airbases. 

* 

b(l)=10.12e6 
b(2)=10.84e6 
do  18  12=1,40 

call  filem(6,b) 

18  continue 

* 

*  File  6  has  aero  information  and  File  7 

t  has  operational  information  for 

*  'red*  aircraft. 

* 

redb (2,1)  =  9.82e6 
redb (2,2)  =  10.96e6 
redb(2,3)  =  0 
b(l )=9.82e6 
b(2)=10.96e6 
do  20  .j  1  =  1 ,40 
call  fi]em(6,b) 

20  continue 

redb (3, 1 )  =  ?.784e6 

redb (3,2)  =  10.108e6 

redb(3,3)  =  0 

b(l)=0 

b(2)=8000 

b(3>=2 

b (4 ) =2 

b  <5)=6 

b(9)=4 

* 

*  The  information  in  Files  a  S  7  is 

*  completely  analogous  to  that  in  Files  1  &  2. 

* 

b ( 10 ) =1 1 0 
do  24  .j  1  =  1,  nr 
call  filemf7,b) 

24  continue 


a<  1  )  =  10154269 

o(2)=10183851 

q(3)=-20000 

* 

*  Coordinates  for  CAP  1  (XI,  X2»  X3). 

* 

a(4)=cos<275./57.3) 

a<5)=sm(275./57.3) 

a(6)=0 

* 

*  Vector  for  outbound  CAP  1  heading. 

* 

a(7)=0 
a(3)=0 
a(9)=0 
a( 10)=2 

call  file* (5, a) 
a( 1 )=9981697 
a(2)=10209201 
a(4)=cos<270./57.3) 
a (5) =s in (270./57.3) 

* 

*  CAP  2  information. 

* 

a(10)=0 

* 

*  File  5  has  coordinates  and  patterns  for 

*  'blue*  Combat  Air  Patrols  (CAPs) 

* 

call  filem(5,a) 
a(l )=9.91e6 
'  "  a(2)  =  10115885 

a(4)=cos(260./57.3) 
a(5)=sin (260./57.3) 

* 

*  CAP  3  information. 

call  filem(5»a) 
a(l )  =  10.09e6 
a(2)  =  10.42e6 
a(3)  =  9,916e6 
a(4)  =  10.42e6 
call  filem(10,a) 

* 

*  File  10  has  route  of  flight  waypoints  for 

*  ‘red*  aircraft. 

*  The  above  four  numbers  are  the  first  waypoints 

It  for  Routes  18  2  (XI,  X2  coordinates). 

*  The  numbers  are  filed  in  First  In,  First  Out 

$  (FIFO)  order,  so  the  first  ones  in  are 

*  positioned  in  the  first  entity  of  the  file. 

* 

a(l)  =  10.06e6 
a<2)  =  10. 33e6 


a<4)  =  10.324e6 
coll  filem(lOfO) 
q ( 1 )  =  10.12e6 
o(2)  =  10. 14e6 
o(3)  =  9.928e6 
o(4)  =  10.14e6 
coll  fileiTi(.10»a> 
od)  =  9.976e6 
o(2)  =  10.072e6 
o(3)  =  10.06e6> 
o(4)  =  10.33e6 
coll  file«i(10»o) 
o(l)  =  10e6 
o(2)  =  10.24e6 
o(3)  =  10.09e6 
o(4)  =  10.42e6 
coll  file»dO,o) 
o(l)  =  10. 06e6 
o(2)  =  10.408e6 
o(3)  =  9.82e6 
o(4)  =  10.96e6 
coll  filem(10»a) 
od)  =  10 . 12e6 
o(2)  =  10.84e6 
o<3)  =  999 
o(4)  =  999 
coll  filem(10,o) 
o(l)  =  999 
o(2)  =  999 
coll  filemdO.o) 
otrib(l)  =  1 
otrib(2)  =  2 
otrib<3)  =  1 
otnb  ( 4 )  =  2 

*  coll  schdl<l»500.»otrib) 

*  otribd)  *  2 

*  coll  schdl ( 1 , 500. »atrib ) 

* 

*  An  oircroft  is  initiolly  scheduled  into 

*  each  of  the  'Blue*  CAPs  (Event  1). 

*  Note!  calls  to  'schdl*  MUST  hove  o  real 

*  number  in  the  time  slot  or  the  event 

*  will  occur  at  Tine  0. 

* 

#  otribd )  =  3 

*  coll  schdl (1 » 1 . fOtrib ) 
otrib(l)  =  1 
atrib(2)  =  1 
otrib(3)  =  1 
otrib(4)  =  8 

do  26  ,jl  =  1,8 
dl  =  ,jl*2+10 
coll  schdl (9,dl t ot rib ) 
atnb(2)  =  atrib(2>+l 
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26  continue 

*  otri.bd)  =  2 

*  atrib<2)  =  1 

*  otrib(3>  =  2 

*  do  28  jl  =  1,8 

*  dl  =  ,jl  *2+410 

*  cq’1  schdl (?,dl , atrib ) 

*  atrib(2)  =  atrib(2)+l 

*  28  continue 

* 

*  Two  ’red*  raids  are  scheduled  to 

*  complete  the  scenono  (Event  9), 

* 

atrib(l)  =  1 
atrib(2)  =  1 
atrib<3)  =  1 

*  call  schdl (8,97. ,atrib ) 

*  call  schdl (8, 120. ,atr lb ) 

atrib (2)  =  2 

*  call  schdl (8.90. , atrib ) 

*  call  schcl (8, 127. , atrib ) 

* 

%  Event  B  schedules  Red  escort  fighters. 

* 

atrib ( 1 )  =  2 
atrib (2)  =  1 
atrib(3)  =  41 

*  call  schdl (8,67. , atrib ) 

*  call  schdl<8, 115. , atrib) 

atrib (2)  =2 

*  call  schdl (8,60. , atrib ) 

*  call  schdl (8, 122. , atrib ) 

*  call  schdl ( 10,5. , atrib ) 

* 

*  Event  10  is  Radar  detection.  This  starts 

*  it  up. 

* 

if  (db ( 1 ) )  then 
do  30  J 1  *  1,11 
call  prntf(jl) 

30  continue 
endif 

* 

*  If  db(l)  is  set,  all  files  are  printed 

*  out  after  initialization. 

* 

return 

end 

* 

***********########*******Sub routine  State*********'*************** ****** 

* 

subroutine  state 

c onniion/=>cotil /atrib  ( 100) ,  dd  ( 100) ,  ddl  ( 100) ,  dtnow,  i  i  ,n>f  a  , mctoD  .nc  Inr , 
+  ncrdr  ,nprnt ,nn run  ,nnset,n tape,  ss(  100)  ,ssl  ( 100) ,  tne::t, tncw,  100  > 
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common  qset< 15000) 

common/ucoml/nsectr (6) ,ncap(3).nb»nrrithrt(24,ll)fthrt(24,ll)f 
fnthrt (24) » vthrt (24) , i vthrt (24) f blue (3) , redo (3,3) , 
+itrr(80,ll).thtrr(80,ll),ntrr(80)fvtrr(80), 
fivtrr (80) 
common/ucom2/db(20) 
logical  db(20) 
logical  thru.red 
charactert4  cs 
ss(l)  =  ssl(l)#dtnow 
ss(2)  =  ssl (2)fdtnow 

* 

*  These  ore  dummy  equations  to  get  the  continuous 

*  time  advance  mechanism  to  function  properly. 

* 

if  ( (dtnow.eq.O) .and. (tnow.gt.O) )  return 
d  o  52  , j  1  —  1 j 6 

nsectr(jl)  =  0 

*  52  continue 

* 

*  The  ’Blue*  radar  missile  file  is  checked  for 

*  missiles  in  flight  and  they  are  updated. 

* 

ntry3  =  mmfe(3) 
do  30  .j  1  =  l,nb 

if  (qset(ntry3+l) .gt.O)  call  cmp70(.jl ,7, 1 ,3) 
ntry3  =  nsucr(ntry3) 

30  continue 

* 

*  The  ’Red*  radar  missile  file  is  checked  in 

*  like  manner. 

* 

ntry8  =  mmfe<8) 
do  32  . j  1  =  lfnr 

if  < qset (ntry8+l ) .gt .0 )  call  cmp70(,jl .  7, 1 .8 ) 
ntry8  =  nsucr(ntry8) 

32  continue 

* 

*  The  Infrared  (IR)  files  is  also  searched  for 

*  heat-seeking  missiles  in  flight  and  they 

*  -are  updated. 

* 

if  (nnq (4) .gt.O)  call  cmp60( 4.6. 1 , 1 ) 
if  <nnq(9) .gt.O)  call  cmp60(9.6, 1 .1 ) 

* 

*  Now  a  sweep  is  made  through  the  blue 

*  and  red  aircraft  files  and  the  aero 

*  information  (position  and  velocity) 

*  is  updated. 

* 

nl  =  nb 
n4  =  O 

thru  =. false, 
red  =  .false. 


*  These  index  and  pointer  variables  are 

*  set  for  blue  aircraft  and  will  be 

*  reset  for  red  aircraft  at  the 

*  bottom  of  the  loop. 

* 

ntryl  =  miffed) 
rtry2  =  mmfe<2) 

10  continue 

do  20  ,jl  =  l,nl 

if  (qset(ntry2+l0) .gt. 110)  then 

* 

*  The  mission  code  is  checked  to  see  if 

*  aircraft  is  airborne. 

* 

n2  =  qset(ntry2+10)-110 
n3  =  qset(ntry2+l ) 

*  if  (tnow.gt.1000) 

*  +  write<8,'  (5x,a5,2x»i2,  *  ,  Msn  Code  *,12,*,  Wgmn  ‘,i2, 

*  +  *,  Flag  =■ ,f3.Q» ‘ ,  Time  *,f9.2)  ')cs,.jl  ,n2,n3, 

*  +  qset(ntry2+9) ,tnow 

go  to  <100, 100,100,400, 101,101, 101, 800, 900, 1000, 1100), n2 
101  write<8, ' (5x, ‘Incorrect  code  for  subroutine  call  in 

+  ‘Subroutine  State.  Code  was  ‘ti3»‘r  Time  *,f9.2)/)n2 

stop 

100  call  cmplO<jl ,n2fn3.n4> 

go  to  8 

400  call  cmp40(,jl  ,n2,n3.n4> 

go  to  8 

800  call  cmp80(,jlFn2.n3,n4) 

go  to  8 

900  call  caip90(  J1  fn2.n3f  n4  ) 

go  to  8 

1000  call  cmpl00(.jl  tn2Fn3,n4) 

go  to  8 

1100  call  cBip  110(.jl  Fn2»n3?n4) 

8  continue 

* 

* 

*  Subroutine  'cmpute*  manipulates  the 

*  aircraft  velocity  vector  and  performs 

*  various  operational  chores  and  returns 

*  the  aircraft  to  ‘state'  for  updating 

*  of  position  and  fuel. 

* 

delta  =  qsetCntryl+9)  -  qset(ntryl+7) 
if  (abs(delta) .le.5)  then 

qset (ntryl+7)  =  qset(ntryl+9) 
else 

if  (delta. gt. O'  qset<ntryl+7)  =  qset(ntryl+?>  +  accel 
if  (delta. it. 0)  qset (ntrvi +7 )  =  qset(ntryl+7 >  -  accel 
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endif 

vel  =  qset(ntryl+7) 
do  12  J2  =  1,3 

qset(ntryl+.j2)  =  qset(ntryl+.j2)+qset(ntryl+3+,j2)*dtnow*vel 
12  continue 

n5  =  qset(ntry2+9) 

n6  =  qset(ntry2+10) 

if  ( (db(4) )  .and.  (.jl.le.4)  > 

+  writers, ' (5x, 'Call  Sign  *  ,a4,2x,  i3,  * ,  Mission  Code  *,i3, 

+  *,  Time  5  * ,f8.2, * ,  Flag  =  ',i3,*,  Vel  *,f8.2/ 

+  5>:,  ‘Updating  position,  * , 3 ■:  *X* ,il ,  *  =  * ,f 12.2,3x) ) ' > 

+  cs,.jl,n6,tnow,n5,vel,l,qset(ntryl  +  l),2, 

+  qset(ntryl+2) ,3,qset(ntryl+3) 

if ( (db <  4) )  .and .  <.jl .  le.4) ) 

+  write(8, ' *5x, ‘Updating  velocity,  ,,3(*X,,il,'  =  ' ,f 12.2,3x) ) '  ) 
+  1 » qset (ntry 1+4)  ,2,qset (ntry 1+5) ,3,qset (ntry 1+6) 

* 

#  Update  Fuel 

qset  (ntry 1+8 )  =  < 10000-20000*#in  (0.  ,qset (ntry  1+6 > ) ) /3600. 
if  (red)  qset(ntry 1+8)  =  0.6*qset(ntryl+8) 
qset(ntry2+2)  =  qset(ntry2+2)-qset(ntryl+8)*dtnow 
if  < (qset (ntry 2+2) .It. bingo). and. (abs( qset (ntry 2+9) ) , le, 1 ) ) 

+  then 

if  (qset (ntry2+10) .ne. 1 19)  then 
qset ( ntry2+10 )  =  119 
if  ( db ( 5 ) ) 

+  write(8, '  (5x,  'Aircraft  *,i3,‘  went  bingo  at  *  ,f8.2) '  ).jl, 

+  tnow 

endif 
endif 

# 

%  Update  Sectors  with  the  number  of  red 
%  aircraft  in  each  sector, 

* 

*  if  (red)  then 

*  nsec  =  5 

*  if  (qset(ntryl+2) . It. 10.45e6)  nsec  =  1 

*  if  <qset(ntryl+2) .lt.10.38e6)  nsec  =  3 

*  if  (qset(ntryi+i ) , it , 10e6)  nsec  =  nsec+1 

*  nsectr(nsec)  =  nsectr (nsec >+l 

*  endif 

* 

endif 

* 

*  The  file  pointers  are  incremented  to 

*  the  next  aircraft. 

* 

ntryl  =  nsucr(ntryl) 
ntry2  =  nsucr(ntry2) 

20  continue 

if  (thru)  return 

* 

*  The  index  and  pointer  variables  are  set 

*  for  the  red  aircraft  files. 
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ntryl  =  »*fe(6) 
ntry2  =  mmfe<7) 
go  to  10 
end 

* 

#******#####**#**#**##****Sub routine  Event**********************:*******# 

* 

subroutine  event(iev) 

common /sc oml/at rib  ( 100) ,dd  < 100) ,ddl < 100) ,dtnow, i i , mfa,  metop  ,nc  Inr , 

+  ncrdr,nprnt,nnrun,nnset,ntape,ss(  100) ,ssl ( 100)  ,  tne>:t,tnow,>:>:<  100) 
common  qset( 15000) 

conuiion/ucoml/nsectr  (6)  ,ncap  (3) , nb  ,nr ,  ithrt  (24, 1 1 )  ,thrt  (24 , 1 1 )  , 
+nthrt<24) ,  vthrt  (24)  ,ivthrt(24),blue(3),redb(3,3), 

+itrr <80,11) ,thtrr< 80,11 ) , ntrr(BO) ,vtrr( SO) , 

+i vtrr ( 80) 
c  ommon/uc om2/db <  20 ) 
logical  db<20) 

dimension  nsqn ( 20 ) , iwq (20 ) , vb 1 (3 ) , vr 1 ( 3) , 

+  xlos<3) , threat <  24) , red (80) , l red ( 80) 
data  red , ired/80*999999,80#0/threat/24*999999/nsgn , iwg/40*0/ 

*  write(8, '  (5>:,  ’Enter  Event,  E  Code  *,i3,',  Time:  '  ,f  9.2 ) ' )  lev,  tnow 
go  to  (1000,1001,1001,1001,1001,1001,1001,8000,9000, 

+  10000  ) , iev 

1001  write(8, '  <5>:, '  Incorrect  Event  code* ,  i8)  ‘ )  iev 
stop 

******X*******X********t«********#*X****X*****X*******X******************X* 

*  CAP  ASSIGNMENT  SECTION:  Forms  flights  of  aircraft  and  # 

*  assigns  them  to  CAP  1/2/3  as  requested  * 

#*####**#####*##*#######**##*#####*#*#*##*####*#####**#*####*#####*#**#*#*# 

1000  nl=atrib(3) 
n2=atrib(2) 
i2  =  atrib(4) 

n3  =  atrib(l) 

J4  =  nb 

* 

*  The  necessary  information  is  passed  through 

*  the  atributes. 

*  Atrib ( 1 ) :  CAP  * 

*  Atnb(2):  #  of  aircraft  in  fit 

*  Atrib(3):  *  of  fits 

*  Atnb(4):  file  printer 

* 

do  1016  jl=l,nl 

* 

*  A  sweep  is  made  through  the  aircraft  files 

*  and  aircraft  which  are  available  (as 


*  denoted  by  the  110  mission  code)  ore 

*  formed  into  flights  of  the  requested 

*  sire. 

* 

ntry2=iimfe(2; 
do  1010  .J2=l,d4 

if<qset(ntry2+10)  .eq.  110.' then 
ntryl  =  locat(J2,l) 
ntry2  =  locat(.j2.2) 
ntry5  =  locat(n3,5> 
do  1014  .j5  =  l,n2 

do  1018  .j6  =  1,3 

qset(ntryl+J6)  =  qset(ntry5f.j6) 
qset(ntryl+3+06)  =  -qset  (ntry5f2+.j6 )  + .  1 
1018  continue 

qset<ntryl+6)  =  0 
qset ( ntry 1+3 )  =  -19987 
qset(ntryl+7)  =  585 
qset(ntryl+9)  =  585 
qset(ntrylflO)  =  qset(ntry5+3) 
qset(ntry2+l )  =  02+1 
if  (J5.eq.2)  qset(ntry2+l )  =  ,j2 
qset(ntry2+2)  =  12500 
qset(ntrv2+6)  =  ,j5 
qset(ntry2+9)  =  -1 
qset(ntry2+10)  =  110  +  atrib(l) 
ntryl  =  nsucr(ntryl) 
ntry2  =  nsucr(ntry2) 

1014  continue 

ncap(n3)  =  ncap(n3>+2 
if  (db(5) ) 

+  write  (8, ' (5x, 'Flight  ',i3,'  of  *,i3,’  formed  at  *,fl2.2, 

+  *,  Mission  Code  * , i4) ' ).j2, n2,tnow, int (atrib < 1 )  +  l 10) 

return 
endif 

ntry2=nsuc  r(ntry2) 

1010  continue 

# 

%  If  the  required  number  of  aircraft  were 
%  available  they  are  formed  into  a 

%  flight. 

* 

1016  continue 
return 

******** 

*  * 

%  Red  Escort  Fighter  Scheduling  * 

*  * 

! M*****:M!M*  X**  *#*  ******************  ****** ***************** 

8000  nl  =  atrib ( 1 ) 
n2  =  atnb(2) 
n3  =  atrib<3) 
ntry6  =  locat(n3,6) 
ntry7  =  locat(n3,7) 
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vrl  ( 1 )  < 
vrl<2)  i 

Qlt 

xlos(l) 

xl.*>s(2) 

0 

850 

1 

850 


comp  =  unf rn(0. , 1 .  ,9) 
alt  =  -10000  -  comp  #  10000 
do  8008  .jl  =  1,3 
vrl < , j  1 )  =  redb (nl , jl ) 

8008  continue 

coH  los''vrl,blue,>:Jos,x»ag,phi) 
xl  =  0 
>:2  =  0 

phi  =  -150. /57. 3 
do  8010  ,jl  =  n3*n3+39 

if  (qset(ntry7+10) .eq.110)  then 
do  8012  J2  =  1,2 

qset (ntry6+l )  =  vrl(l)  +  xl 
qset(ntry6+2)  =  vrl<2)  +  x2 
qset(ntry6+3)  =  olt 
qset(ntry6+4)  =  xlos(l) 
qset(ntry6+5)  =  xl.*»s(2) 
qset(ntry6+6)  =  0 
qset(ntry6+7)  =  850 
qset(ntry6+8)  =  1 
qset(ntryo+9)  =  850 
qset(ntry6+10)  =  olt 
qset(ntry7+l )  =  .jl  +  J2 
if  (,j2.eq.2)  qset(ntry7+l )  =  0 
qset(ntry7+6)  =  ,j2 
qset (ntry7+7)  =  1 
qset(ntry7+8)  =  n2 
qset(ntry7+9)  =  1 
qset(ntry7+10)  =  114 

>:1  =  1500  *  (xlos(l)  *  cos(phi)  +  xlos(2)  *  sin(phi)) 
x2  =  1500  *  (xlos(l)  *  (-sin (phi))  +  xlos(2)  *  cos (phi)) 
ntry6  =  nsucr(ntry6) 
ntry7  =  nsucr(ntry7) 

8012  continue 

write(8, ' (5x, 'Red  Escort  ',i3,',  flight  formed  at  ', 

+  *  Tine  ,»f9»2)/).jl»tnow 

return 
endif 

ntry6  =  nsucr(ntry6) 
ptry7  =  nsucr(ntry7) 

8010  continue 
return 

XftXXXXXXXXXXtXXXXXXXXXXRed  Ground  Attack  ********** ****** *************** 

*  Red  aircroft  ore  configured  and  sent  out  * 

*  on  the  proper  route  as  they  are  scheduled  * 

X  by  other  routines.  * 

*  Again,  information  is  passed  through  X 

*  the  'atrib*  array.  * 

X********************************************************** ****** ******* 

*  Atrib(l)5  Base  (1/2/3) 

*  Atnb(2)l  Callsign 

*  Atrib (3)1  Route  *  (1/2/3) 

*  At rib '4)1  *  in  flight 


cos(phi)  +  >:1ds(2)  *  sin(phi)) 
(-sin  (phi))  +  >:ios(2)  *  cos  (phi)) 


flight  formed  at 


L  9 


9000  nl  =  0 

if  <otrib( 1 > .eq.2)  nl  =  40 
n2  =  atnb(2) 
n3  *  atrib(l) 
if  (n3.eq .3)  n3  =  5 
if  (r>3.eq.2)  n3  =  3 
n4  *  atrib<4) 
ntry6  *  locat(nl+n2»6) 
ntry7  =  locat(nl+n2f7) 
ntrylO  =  unfedO)  * 
qset<ntry7+10)  =  118 
qset(ntry7+9)  =  1 
aset(ntry7+8>  =  n3 
qset(ntry7+7)  =  0 
qset(ntry7+6)  =  n4*1000+nl+n2 
qset(ntry7+l )  =  nl+n2+l 
if  (n2.eq.l)  qset(ntry7+l )  =  1 

* 

*  The  aircraft  starts  at  an  altitude  over 

*  the  base. 

* 

qset(ntry6+10)  =  -1300-n2*?00 

qset<ntry6+9)  =  700 
qset(ntry6+8)  =  5000 
qset (ntry6+71  =  700 
qset ( ntry6+3 )  =  -1300-n2*200 
vrld)  =  qset(ntryAtl') 
vrl(2)  =  qset(ntry6+2) 
vrl (3)  =  0 

vbl(l)  =  qset(ntryl0+n3) 
vbl<2)  =  qset (ntry 10+nj+l ) 
vbl <  3 )  =  0 

call  los(vrl  rvbl  ,xloSf>i»iag  ,  phi  > 
qset(ntry6+4 )  =  >;losd) 
qset(ntry6+5)  =  >:los<2) 
if  <db (5) ) 

+write(8» '  (5>:, ’Red  ’dS**  departed  Rose  on  Route  *,il- 

+  '  Time!  * rf8.2) ' )nl+n2f int(atrib ( 1 ) ) * int(atrib (3 ) ) , tnou 

return 

10000  call  search 
return 
end 

* 

*  These  subroutines  support  the  basic  program. 

* 

include  'search' 
include  'cmplO' 
include  'cmp40' 
include  'cmp60' 
include  'cmp70' 
include  'cmp80' 
include  'cmp90' 
include  'cmplOO' 
include  'cmpllO' 
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sub  rout?  ne  turn (vecl » vec2,g»ntryl ,dtnow,vel ) 

* 

*  Turns  vecl  toward  vec2  in  the  plane  vecl-vec2  with  *g*  G  forces 

* 

com# on  qset< 15000) 
common/uco»i2/db  (20) 
logicol  db(20) 

dimension  vec 1(3) , vec2 ( 3 5 ,  vec (3) , uvec (3) 
call  cross< vecl ,vec2» vec »uvec ) 
call  cross(uvec ,veel »vec ,uvec ) 

I  if  (db (8) ) 

*  twrite<8» '  (5x,  *Turn,  •  ,3(  *VEC1  ( • , il ,  ■ )  =  1  ,fl3.5,2>:)/ 

*  +  1 lx » 3 ( *  UVEC  ( * » i  1  r  * )  =  ,,fl3.5,2>:)/12x,,Vel  =  *,f8.2, 

*  +  2>;»  'G  =  •ff6.2,2>sr,DTM0«  =  *,f8.2, \  NTRY  =  ',i5)') 

I  +  (.jl » vecl  (,jl ) ».jl=l ,3)  ,  < . j  1 1 uvec  (,jl ) » . j  1 = 1 ,3) ,  vel  ,g  , dtnow,ntryl 

do  10  jl  =  1,3 

vecl(.jl)  =  vecl(.jl)  t  vel 

uvec(.jl>  =  uvec(jl)  *  g  *  32.2  %  dtnow 

vec(.jl)  *  vecl(.jl)  +  uvec(jl) 

10  continue 

call  unit(vec,uvec ) 
do  12  .jl  =  1,3 

iset<ntryl+3+,jl )  =  uvec(jl) 

12  continue 
t  if  (db (9) ) 

<■  +  write(8, '  <5>:,  ’Turn,  Vel  Vector:  *  ,3(  *V<  *  ,il  * )  =  *rfB.4,2x) 

t  +  1 2>: r  "OldVector :  *,3( *V( il, * )  *  * , f 8 .4,2>; >/) ' )  <  j  1  ,uvec  <  jl ) 

*  +  jl  =  l,3),(jl,vecl(.jl),jl=l,3) 

return 

end 

real  function  hdg(ics) 

<  Returns  the  heading  of  red  aircraft  callsign  'ics* 

common  qset(  15000) 
dimension  vecl (3) ,vec2<3) 
ntry6  =  locat(ics,6) 
vecl(l)  =  qset(ntry6+4) 
vecl(2)  =  qset(ntry6+5) 
vecl (3)  *  0 
vec2( 1 )  =  1 
vec2(2)  =  0 
vec2(3)  *  0 

call  dot (vec 2, vecl , dp rod,c, theta) 
hdg  »  theta 

if  ( vec 1 (2) . lt.0)  hdg  =  2*acos(-l ,0)+theta 

return 

end 

subroutine  dot ( vec 1 , vec 2, dp  rod ,c .theta ) 

Ferforiris  scalar  multiplication  of  two  vectors. 


dimension  vecl (3) ,vec2<3) 


xsagl  =  sqrt<  vec  1  <  1  Xvecl  ( 1 5+vecl  (2)*vecl (2)+vec  1  (3)  tvecl  (3) ; 
>:»ag2  =  sqrt <  vec2( 1 )#ve:2<  1 )+vec2(2>#vec2(2>+vec2( 3>*vec2( 3) ) 
dprod  =  vecl  ( 1  )#''ec2<  1  >+vecl  <2)$vec2(2)+vecl  <3)#vec2<3> 
if  ( (xmagl  .gt.0>  .and  .  (>:»ag2.gt.O) )  then 
c  =  dprod/>:mag! />:mag2 
if  (c.gt.l)  c=l 
if  (c.lt.-l)  c=-l 
else 
c  =  1 
endif 

theta  =  acos(c) 
return 
end 

subroutine  cross ( vecl , vec2» vec »uvec ) 

« 

*  Performs  vector  multiplication  of  two  vectors. 

* 

dimension  vec 1 (3) , vec 2(3) ,  vec (3) ,  uvec  (3) 
vec ( 1 )  =  vecl (2)*vec2(3)-vecl (3) »vec2(2) 
vec(2)  =  vec 1 ( 3 ) *vec2 ( 1 ) -vec 1 ( 1 ) Cvec2 ( 3 ) 
vec (3)  =  vecl < 1 )*vec2(2)-vecl (2)*vec2(l ) 

::mag  =  vec ( 1 )#vec < 1 )+vec <2)*vec <2)+vec (3)#vec <3) 
if  (xmag.gt.O)  then 
xmag  =  sqrt(xmag) 
do  10  ,jl  *  1,3 

uvec(jl)  =  vec  (jl  )/>:maa 
10  continue 
else 

xmog  =  0 

do  12  jl  =  1,3 
uvec  <  ,j  l )  =0 
12  continue 
endif 
return 
end 

subroutine  unit ( vec , uvec ) 
common/ucoBi2/db  (20) 
logical  db<20) 

* 

#  Returns  a  unit  vector. 

* 

dimension  vec (3) , uvec (3) 

*  if  (db(3>> 

%  +write<8, ' (5x, ’Inside  UNIT’)') 

>:mag  =  0 

do  10  .jl  =  1,3 

>:mog  =  >:mag+vec  (,jl  )#vec  <  j  1 ) 

10  continue 

if  (xmng.gt.0)  then 
::mag  =  sqrt(>:mag) 
do  *12  Jl  =  1,3 

uvec(.jl)  =  vec  (.jl )  />:mag 
12  continue 
else 


122 


do  14  jl  =  1,3 
uvec<Jl)  =  0 
14  continue 
endif 
return 
end 

subroutine  los ( vecl , vec2,xlos, xmog ,phi ) 

Returns  line  of  sight  and  distance  between  two  points. 

dimension  vecl <  3)  »vec2<3> ,xlos(3> 
xmag  =  0 

do  10  ,jl  =  1,3 

xius'Jl)  *  vec2( Jl )-vecl ( Jl ) 

>:Biag  --  >:iitogtxlos( Jl Xxlosv jl ) 

10  continue 

if  (xmag.gt.O)  then 
xmag  *  sqrt(xmag) 
do  12  Jl  *  1,3 
xlos(.jl)  =  xlos(.jl  )/x*ag 
12  continue 
else 

xmag  =  0 

do  14  .jl  =  1,3 
xlos (.jl )  =  0 
14  continue 
endif 

phi  =  asin(xlos<3) ) 

return 

end 

subroutine  otput 

common/sconil/atrib  <  100)  ,dd  <  100)  ,ddl  ( 100)  ,dtnow,  i  i  ,mf a  ,ffistop  .nc  1  nr 
+  ncrdr,nprnt,nnrun ,nn set, n tape, ss( 100) , ssl ( 100 ) ,tnext, tnow,xx< 100 
write<9,'(14(i2,i3))')  ( int  <>:>:(  Jl ) ) ,  .j  1  =  1 , 14) 
return 


subroutine  search 

coTiiion/scoml/Qtrib<  1 00 )  ,  dd  <  100)  .  dd  1  ( 100 )  ,dtnow,  i  i , mfa  , mstop , nc  lnr  , 
+  n c rd r, np rn t, n n run, n n set, n tape, ss( 100) , sslUOO)  ,  tne>:t,tnow,>:x(100) 
common  qset( 15000) 

common/ucoml/nsectr<6) , neap (3)  »nb  ,nr,  i  thrt(24, 11 )  ,thrt(24, 11 ) , 
+nthrt'24),vthrt(24),ivthrt(24),blue(3>,redb<3,3) , 

+itrr(80» 11 ) , tht rr(80, 1 1 ) , ntrr (80) , vtrr(80> » 
fivtrr (80) 
common/  ucom2/db  ( 20 ) 
logical  db(20),redd 
ch iracter  csl#4,cs2*4 , cs3*5»cs4X6 
real  lowel 

dimension  nsgn (20) , iwg (20) , vbl (3) , vb2(3) , vb3(3) , vrl (3) , vr2(3  > , 

+  vr3(3) ,xlos<  3) , threat (24) , red (80) , ired (80) »hlos( 3) , 

+  redl(80) ,iredl(80> 

data  red , i red/80*?99999 , 80*0/th reat/24*999999/nsgn , iwg 740*0/ 
****************************** ************************ ****************** 
*  * 

*  RADAR  SEARCH  SECTION?  Called  every  5  seconds  * 

*  X 
********************************************* *****************<********* 

if  (db(ll))  write(8, ' <5x, ‘Search ,  Time  * ,f9.2) ' )tnow 

ntryl=mmfe( 1 ) 

ntry2=»ii!ife(2) 

ntry6  =  mmfe(6) 

ntry7  =  mmfe(7) 

* 

*  The  angular  limits  of  the  radar  are 

*  set  based  on  what  the  aircraft  is  doing 

*  at  the  moment,  as  shown  by  his  mission 

*  code, 

* 


lowel 

= 

8./S7.3 

upel 

= 

-2./S7.3 

azlmt 

r 

S5./57.3 

trng 

= 

30000 

csl  = 

/ 

Blue' 

cs2  = 

/ 

Red' 

redd 

s 

.false. 

n4  =  i 

r>r 

n3  = 

nt> 

n  16  = 

6 

nl7  = 

7 

10008  continue 

do  10036  nl  =  l,n3 
db(l>  =  .false. 

*  if ( ( .not . ( redd  ) ) .and  .  (nl .eq . 1 ) ) db ( 1 )  =  .true, 
nred  =  0 
nred?  =  0 

if  (qset(ntry2+10'> .  It .  1 11 )  go  to  10034 
if  (qset (ntry2+10) ,eq . 121 )  go  to  10034 
do  10010  ,jl  =  l  ,80 
red ( .  j  1 )  =  999999 
redl(.jl)  =  999999 
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10010 


ired(Jl)  =  0 
lredl(Jl)  =  0 
continue 

do  10012  Jl  =  1,3 


10014 

* 


The  scratch  arrays  are  loaded  with  position 
and  velocity  vectors. 

vbl ( Jl )=qset(ntryl+Jl ) 
vb2(.jl  )=qset(n^ryl+3+Jl) 
vb3( Jl >=vb2( Jl ) 

)12  continue 
vb3<3)=0 

call  unit< vb3,vb3> 
if  'cb(l) ) 

+  write(8, ' (5x, ‘Blue  1,  Mission  Code  ‘.lS,*,  Speed  ’,f 

+  1  fps,  Time  *,f9.2/  5x, ‘Position t  * , (3( *X( M 1 , * ) J * , 

+  f 12  *2»2x) )/5x,  ’Velocity'  *  ,3(  *X(  • ,  il ,  • ) :  *  ,f?.4,5x> ) ' ) 
+  int(qset(ntry2+10) ) »qset<ntryl+7) ,tnow, 

+  <J2,vbl(J2),J2=l,3),<J2,vb2<J2),J2=l,3> 

A  mission  code  of  120  signifies 
a  radar  attack  by  the  aircraft. 


if  <qset(ntry2+9) .lt.l >  go  to  10018 
if  <qset(ntry2+10) .eq .120)  then 
if  ( qset<ntry2+9) ,eq . 1 )  then 
if  <ithrt(nl,ll) .le.0)  then 
qset <ntry2+9)  =  0 
go  to  10018 
endif 

n£  =  locat ( ithrt (nl ,1 1 ) ,nl6) 
do  10014  Jl  =  1,3 
vrl(Jl)  =  qset(n£+Jl) 
continue 


If  the  aircraft  is  running  an  intercept  on 
another  aircraft  but  is  not  locKed  on, 
the  radar  bea*i  is  oriented  along  the  line 
of  sight. 

call  los(vbl,vrl ,xlos, xmag , phi ) 
phi  =  asin(xlos(3)  -  vb2(3)) 

Phi  is  the  elevation  angle  between  the  LOS 
vector  and  the  velocity  vector  or  ’nose" 
of  the  aircraft. 


lowel  =  phi+6./57,3 
upel  =  phi-6. /57. 3 
if  (abs(phi ) .gt.arlmt)  then 
lowel  =  azl»t 
uoel  =  azlsit  -  16./57.3 


d 


endif 


* 

*  A  value  greater  than  1*5  implies  the  radar 

*  is  locked  on  or  a  missile  is  in  flight. 

* 

if  <qset(ntry2+9) .gt.1.5)  then 
n6  =  ithrt ( n 1 ,11) 
if  <n6.1e.O)  then 
if  (redd)  then 
itrr(nl,f)  =  0 
itrr(nl,ll)  =  0 
thtrr (nl ,  1 )  =  999999 
thtrr (nl , 11 )  =  999999 
qset(ntry2+9)  =  1 
else 

ithrt(nl ,1 )  =0 
ithrt(nl,ll)  =  0 
thrt(nl ,  1 )  =  999999 
thrt (nl , 1 1 )  =  999999 
qset(ntry2+9)  =  0 
endif 

go  to  10018 
else 

n6  =  locat(n6,nl6) 
endif 

do  10016  .jl  =  1,3 
vrl(.jl)  =  qset(n6+,jl) 
vr2(.jl)  =  qset(n6+3+.jl ) 
vr3(.jl)  =  vr2(.jl) 

10016  continue 

vr3(3)  =  0 

call  umt(vr3,vr3) 

call  los( vbl , vrl ,  xlos,xmag ,phi ) 

phi  =  asin(::los(3)  -  vb2(3)) 

xlos<3)  =  0 

call  unit(xlos,xlos) 

call  dot(vb3,>:los,dprod,c , theta ) 

if  <  (abs(phi)  .gt.aslmt)  .or.  (abs(theta)  .gt.azliit) )  then 
if  (redd)  then 
itrr(nl,l)  =  0 
itrr(nl , 11 )  =  0 
thtrr(nl , 1 )  =  999999 
thtrr(nl,ll)  =  999999 
qset(ntry2+9)  =  1 
else 

ithrt(nl,l)  =  0 
ithrt(nl ,11)  =  0 
thrt (nl , 1 )  =  999999 
th  rt ( n 1 , 1 1 )  *  999999 
qset(ntry2+9)  =  0 
endif 

go  to  10018 
endif 

thrt  (n  1,1)  =  >:mag 
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thrt(nlfll)  =  xnag 
nthrt(nl)  =  1 
go  to  10032 
endif 
endif 

* 

*  Each  aircraft  is  checked  against  other 

*  airborne  aircraft  to  build  a  radar 

*  file,  isuch  as  the  pilot's  radar 

*  scope  night  do. 

* 

10018  continue 

ntry6  -  ">?ife(6^ 
ntry7  =  »mfe(7) 
if  (redd)  then 
ntry6  =  unfed ) 
ntry7  =  i»mfe(2) 
endif 

do  10026  n2  =  l,n4 

if  < qset (ntry7+10) .gt.110)  then 
ics  =  n2 

do  10020  J 1  =  1,3 
vrl  ( . j  1  )=qset(ntry6+.jl ) 
vr2(.jl  )=qset(ntry6+3+,jl ) 
vr3(.jl  )=vr2(jl ) 

10020  continue 

vr3(3)=0 

call  unit(vr3, vr3) 

*  if  (db (1) ) 

*  +  wnte(8, '  (5x,  ‘Red  ',i2,*  Hission  Code  ‘,i3,‘  Speed  *,f7.2, 

*  +  *  fps,  Time  *,f9.2/  5x, ‘Position!  * , <3< *X( * ,  il ,  * )  t * , 

*  +  fl2. 2, 2x))/5x, ‘Velocity*.  •  ,3(  ‘X(  • ,  il ,  * ) :  *  ,f9.4,5x) ) ' )  ics, 

*  +  int(qset(ntry7+10) ) ,qset(ntry6+7) »tnow, 

*  +  (.j2, vrl  (,j2)  ,.j2=l  ,3) ,  (.j2, vr2(.j2)  ,.j2=l  ,3) 

call  los(vbl ,vrl ,xlos, rng ,phi ) 
if  ( rng , lt.trng )  then 
hlos(l)  =  >:los(l) 
hlos(2)  =  >:los(2) 
hlos(3)  =  0 
call  umt(hlos,hlos) 
call  dot( vb 3, hi  os, dp  rod ,c , theta  > 
phi  =  asin(vb2(3)  )#cos(theta)-asin(xlos(3'> ) 
if  (db  (1) ) 

+  write(8, '  <5>:,  ‘Red  *,i2,‘  Mission  Code  *,i3,*  Speed  *,f7.2, 

+  ‘  fps,  Tine  *,f9,2/  5>:, ‘Position:  ■ ,  (3(  ‘X(  • ,  il ,  • ) :  • , 

+  fl2.2,2>:))/5;<,  ‘Velocity:  *  ,3(  ‘X(  * ,  i  1 ,  ‘ ) :  ■ ,f?.4,5x)  ) '  )ics, 

+  int( qset (ntry7+10) ) ,qset( n try 6+7) , tnow, 

+  (J2,  vrl  (,j2)  ,.j2=l  ,3) ,  (.j2,vr2(j2)  ,.j2“l  ,3) 

cs3  =  'right' 

if  (theta. gt.0)  cs3  =  '  left' 
cs4  =  '  above' 

if  (phi .gt. .17453)  cs4  =  '  below' 
if  (db  ( 1 ) ) 

+  write<8, ' (5x, ‘Range,  Blue  1  to  Red  ‘.i2,‘  is  ‘,fi2.2.‘  feer‘; 
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* 

* 

* 

* 

* 

* 


* 

* 

* 

* 


* 

* 

* 


* 

* 

* 

* 


I! 

X 

* 

X 


t  ics,rng 
if  (dt  (1) ) 

+  write<8» '  <5>:,  ’Visual  Detection,  Red  *,i2,*  bears  *,< 
+  *  of  nose  ',i3,'  deg rees. * ) ' ) ics,cs3, int (thet a*57 .3) 

if  (db(l ) ) 

+  write(8, ' ( lOx, 'He  is  *,a6»*  the  wing  line.,)')cs4 

Sectors  are  established  around  the 
aircraft,  roughly  forward,  side, 
and  tail,  with  different  probabilities 
of  visual  detection  in  each  sector. 

if  (redd)  then 

if  ( abs(theta) .gt.2. 09434)  then 

Rear  sector,  with  probability  of  detection 
below  the  stern  of  the  aircraftr  =  0. 

pdv  =  .2 

if  (phi .gt. . 17453)  pdv  =  0 
go  to  11018 
endif 

Side  sector. 

if  (abs(theta) .gt. 0.52356)  then 
pdv  =  .6 

if  < phi . gt .. 17453 )  pdv  =  .25 
go  to  11018 
endif 
pdv  =  .4 

if  (phi . gt. . 17453)  pdv  =  ,1 
go  to  11018 
endif 

Probabilities  are  established  for  the  Plue 
ai rcraft. 

if  (abs'theta> .gt.2. 6178)  then 
pdv  =  .2 

if  (phi .gt. .17453)  pdv  =  0 
go  to  11018 
endif 

if  (abs(theta) .gt. 0.52356)  then 
pdv  =  ,6 

if  (phi .gt. .17453)  pdv  =  .25 
go  to  11018 
endif 
pdv  =  .5 

if  (phi .  gt. . 17453 )  pdv  =  .2 

The  probability  of  visual  detection  is 
predicatec  on  o.any  factors,  such  as 
ranae,  relative  position,  and  amount 


of  maneuvering . 


L8  pdvl  =  pdv  *  6000  /  rng 

if  (redd)  pdvl  =  pdvl*2 
coll  dot  (xlos,vr2,dprod»c , theta) 

+asp  =  abs(sin(theta) )  +  .25 
ftrn  =  .25 

if  < abs(qset(ntry2+9) ) ,gt .1 .5)  frtn  =  .75 

pdv2  =  (fasp  +  ftrn)  /  2. 

pdv  *  pdvl  *  pdv2 

coup  =  unfri»(0.,l.,9) 

cs4  =  '  is 

it  (pov. it. comp )  cs 4  =  'is  not' 
if  (db (1  )) 

+  wnte(8, '  (5>;,  ‘Probability  of  Uisual  Detection  is  *,f5.3, 

+  *.  Random  number  is  *  ,f5.3,  * ,  '/7>:,  ’Red  ', 

+  i2,lx,a6,*  detected.*)') 

+  pdv, comp , ics ,cs4 

if  (pdv. It .comp )  go  to  11050 

if  < (qset (ntry7+7) .eq . 1 ) .or. ( q set (n try 7+7 ) .eq  . 3) ) 

+  qset(ntry7+7)  =  3 

if  (qset (ntry7+7) . 1 t . 1 )  qset< ntry7+7)  =  2 

The  visually  detected  threats  are  filed 
in  a  visual  threat  file. 

nredl  =  nredl  +  1 
lcsl  =  ics 
rngl  =  rng 

do  11024  ,jl  =  1  ,n2 

if  < rngl , It . redl < . j  1 ) )  then 
tempi  =  redl(.jl) 
i  tempi  =  iredl(jl) 
redl(.jl)  =  rngl 
iredl(jl)  =  icsl 
rngl  =  tempi 
icsl  =  itempl 

if  ( rngl .gt.trng)  go  to  11050 
endif 

4  continue 

endif 

0  phi  =  asin(>:los(3)  -  vb2(3)> 

if  (db ( 1 ) ) 

+  write(8, '  (5>:, 'Radar  range,  Blue  1  to  Red  *,i2,*  is  *, 

+  f 12.2, *  feet* ) ' )ics, rng 
if  ( db ( 1 ) ) 

+  write(8, '  (5x,  'Radar  detection  limits  are!  '/7>;»  'Elevation! 

+  'Upper  *,f7.2,'  degrees,  Lower  ',f7.2,'  degrees.  '/7>:,  'Target 
+  'elevo+ion  is  *,f7.2,'  degrees . ' ) '  >upel*57. 3, lowel*57 . 3»phi#5 
if  ( (phi  .gt.lowei )  .or .  (phi  .lt.upei  i )  cjo  to  10024 

The  targets  are  tested  against  a  probability 
of  detection  to  see  if  they  are  detected 
and  filed  in  the  aircraft's  ^aaar  contact 


*  file.  Targets  are  placed  In  the  file  in 

*  oroer  of  closest  range. 

* 

xlos(3)  =  0 

call  unit(>:los,xlos) 

call  dot(vb3,xlos,dprod,c ,  theta ) 

*  if  (do  (1 ) ) 

*  +  writeO, '  (5x, 'Azimuth  limits  are!  +/-  ',f6.2,'  degrees.  ', 
t  +  'Target  azimuth  *,f7.2»*  degrees. * ) ' )azlmt*57.3,theta*57.3 

if  (abs(theta) .gt.azlmt)  go  to  10024 
pdr  =  1.0 

if  ( rng .gt. 150000)  pdr  =  ( 270000 . -rng )/120000 . 
if  (pdr. It. 0)  pdr  =  0 
if  (redd)  then 

if  ( (phi .gt. . 17452) .and .( vrl (2) .gt. -10000 ) )  pdr  =  .5  *  pdr 
endif 

comp=unf rm(0.  ,1 .  ,9) 
cs4  =  '  is  ' 

if  (pdr. It. comp)  cs4  =  'is  not' 

*  if  (db  (1 ) ) 

*  +  write<8, ' »5x, 'Probability  of  Radar  Detection  is  *,f5.3, 

*  +  '.  Random  number  is  *  ,f5.3,  * .  */7x,  'Red  ', 

*  +  i2,lx,a6»'  detected.*)') 

*  t  pdr, comp, ics,cs4 

if  (pdr .  It. comp )  go  to  10024 
nred  =  nredtl 

* 

*  The  total  number  of  threats  and  the  ten 

*  closest  threats  (radar  contact)  are 

*  saved. 

*  if  (qset(ntry7+7) . It. 2)  qset ( ntry7+7)  =  1 

*  if  (qset(ntry7+7) .gt.l )  qset(ntry7+7)  =  3 
do  10022  ,jl  =  1  ,n2 

if  ( rng  .  1 1 .  red < . j  1 ) )  then 
temp  =  red(.jl) 
itemp=  ired(Jl) 
red(.jl)  =  rng 
ired(Jl)  =  ics 
rng  =  temp 
ics  =  itemp 

if  < rng .gt. 500000)  go  to  10024 
endif 


10022 

continue 

endif 

10024 

ntry6  =  nsucr(ntry6) 

ntry7  =  nsucr(ntry7) 

10026 

continue 

if  (redd)  then 

do  10040  ,jl  =  1,11 
thtrr  (nl  ,.jl )  =  999999 
itrr(nl,.jl)  =  0 
10040  continue 

ntrr(nl)  =  nred 
vtrrfnl)  =  redl(l) 


130 


lvtrr'nl)  =  iredKl) 
if  <qset(ntry2+7) .gt .0)  then 
nred  =  min(10,nred) 
do  10042  ,jl  =  l,nred 
thtrr(nl,jl )  =  red(.jl) 
itrr(nl».jl)  =  ired(.jl) 
continue 

thtrr(nl,ll>  =  thtrr(nl,l) 
itrr(nl»ll)  =  itrr(nl,l) 
endif 

go  to  10032 
endif 

do  10028  jl  =1,11 
thrt(nl,Jl)  =  999999 
ithrt(nl  ,.jl )  =  0 
continue 
nthrt(nl)  =  nred 
vthrt(nl)  =  redl(l) 
ivthrt(nl)  =  iredl(l) 
nred  =  min  (10,  nred) 
oo  10030  ,jl  =  l,nred 
thrt(nl,.jl)  =  red(.jl) 
ithrt<nl  ,.jl )  =  ired(.jl) 
continue 

thrt(nlrll)  =  thrt (nl ,  1 ) 
ithrt(nlfll)  =  ithrt(nl,l) 
n5  =  qset(ntry2+9) 
n6  =  qset(ntry2+10) 
if  (db ( 1 ) ) 

write(8> '  (5x,  'Visual  Threat!  ‘,a5,i3, 

5>: , ' ,  Call  Sign  is!  *,5x,i4,5x, 

*,  Range  is!  *  ,7x  ,f  15.2) '  )csl  ,nl , 
lvthrt (nl ) , vthrt (nl ) 
if  ( (db (4) ) .and . ( redd > )  then 

write(8, '  (5x» ‘Ntrr  Red(‘,i2,‘)  =  • ,  i5, 10;:,  *  Tine  !  *,f 

5x,‘Flog  *  *,i3,‘,  Msn  Code  =  * ,  i4) "  )nl  ,ntrr  (nl  > , 
tnow,n5,n6 

write(8, '  <5x»  ’Threat  Call  Signs  are  !  ‘  ,5x,5(  i 4 , 10:;) ) ' ) 

itrr(nl  ,11) ,  (itrr(nl,.jl)  ,.jl=2,5) 
write(8, ' (5x, ‘Threat  Ranges  are! ‘ ,7x,5(f 15.2)/) ' ) 
thtrr(nl,ll) ,  (thtrr(n  1  ,.jl )  ,.j  1  =  2,5) 
go  to  10034 
endif 

if  (db ( 1 ) )  then 

write(8, '  (5>:»  ‘Nthrt  Blue( ‘ , i2, ’ )  =  • ,  i5,  lOx,  ‘Time!  *,f 
5x,‘Flag  =  ‘,13,*,  Msn  Code  =  ‘ , i4) '  )nl , nthrt (nl ) , 
tnow,n5,n6 

write(8,  '  (5x, ‘Threat  Call  Signs  ore!  ‘  ,2x»5(i2, ?>:))' ) 

ithrt(nl ,  11 ) ,  ( ithrtCnl  ,.jl )  ,.jl=2,5) 
write(8, '  (5x,  ‘Threat  Ranges  are!  ‘  ,5(f  11 .2)/ )  '  'i 
thrt  (nl ,  1 1 ) ,  (thrt  (n  1 ,  .j  1 ) » .jl  =  2 ,5) 
endif 

ryl  =  nsucr(ntryl ) 
ry2  =  nsucr(ntry2) 


10036  continue 

if  (redd)  then 

cull  schdl(10»5.»atrib) 
return 


endif 

db(l)  = 

.false* 

redd  = 

♦true. 

lowel  - 

4.Z57.3 

upel  = 

-8./57.3 

ozlmt  = 

40./57.3 

trnq  = 

60000 

C  5 1 "  =  ' 

Red ' 

c  =  9 

Blue' 

JD 

C 

II 

c 

n3  =  nr 

nl6  =  1 

nl7  =  2 

ntryl  = 

<*nfe(6) 

ntry2  = 

»nfe(7) 

ntry6  = 

unfed  ) 

ntry?  = 

mnfe<2) 

go  to  10008 

subroutine  cmplO( i 1 >n2tn3,n4 > 
t  The  dummy  variables  represent  the  following? 

* 

*  il?  aircraft  callsign 

*  n2J  ftission  code  derivative 

*  n3?  wingman's  call  sign 

*  n4J  blue/red  file  pointer 

* 

yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 

*  *  « 

*  This  section  flys  Blue  aircraft  around  the  CAP  patterns  and  * 

*  commits  them  on  targets  as  appropriate.  y 

*  * 

y***#m***y****m****m*******m***«****************************** 

comnion/scoml/atrib  (100)fdd(100)fddl(100)fdtnow,ii»mfa,  ms  top  »nc  In  r , 
lncrdrfnprint,nnrun,nnset»ntape,ss(100) ,ssl  ( 100)  ,tne>:t,tn ow ,:•:>;(  100) 
common  qset(15000) 

co»mon/uc onl/nsectr (6) , neap (3) ,nb,nr, ithrt (24,11 ) ,thrt (24,11 ) , 

+nth  rt (24 ) , vthrt (24 ) , i vth rt(24)*blue<3) , redb ( 3*3) * 
+itrr(80,ll),thtrr(80,ll)fntrr(80),vtrr(80), 

+ivtrr(80) 
common/ucom2/db (20) 
logical  db(20) 

dimension  vec (3) ,vecl (3) ,vec2(3) ,uvec<3) ,f los(3) . 

1  tlos(3),vbl(3),vb2<3),vrl(3),vr2(3) 
if  ( db  ( 10) )  write(8,/(5::,*Cmpl0,  Time  * ,  f?,2) '  )tnow 
db(l)  =  .false. 

#  if  (il.eq.l)  db <  1 )  =  .true. 

* 

#  A  checK  is  made  here  for  visually  detected  targets 

y 

if  (n4.eq.O)  then 
ntryl  =  locat(il*l) 
ntry2  =  locat(il*2) 
n5  =  ivthrt(il) 
if  (nS.le.O)  go  to  150 
n7  =  locat(n5»7) 
if  ( qset (n7+10) . It . 1 11 )  then 
ivthrt( il )  =0 
vthrt(il)  =  999999 
go  to  150 
endif 


If  the  visually  detected  target  is  also 
a  radar  contact  to  which  the  pilot  is 
locked  up*  the  visuol  routine  ignores 
it. 


if  (db (5 ) ) 

wnte(8* '  (5>:r  'Blue  ',i3.'  has  tally-ho  on  Red 
f f 9 . 2) 7 ) 1 1 1 i vth  rt ( i 1 ) *  tnow 
ntrv6  =  locat( i vthrt ( il ) »6) 


at  Time’ 


vM(,jl)=  qset(ntryl4Jl ) 
vb2(.jl)  =  qsetfntry  1434.jl ) 
vrl(.jl)  =  qset<ntry£.4jl  > 
vr2(.jl)  =  qset<ntry6434,jl ) 

112  continue 

* 

*  If  the  nilot  is  reacting  to  a  visual 

*  threat  he  tries  to  turn  hard  and 

*  point  at  hi»  in  order  to  use  his 

*  weapons. 

* 

call  los< vrl , vbl  ,tlos»>:Biag » phi  ) 
n5  =  qset<ntry241 ) 
if  (nS.gt.O)  then 
n7  =  locat(n5f2) 
qset(n741)  =  0 
qset(n7+6)  =  1 
endif 

qset  (ntry24-l )  =  0 
qset(ntry246)  =  1 
qset(ntry247)  =  xmag 
n2  =  11 

qset(ntry2+10)  =  121 
qset(ntry2+9)  =  4 
if  (db (5) ) 

+  write(8> ' (Sxf 'Blue  'fi3r*  reacting  visually  to  * 
4  "Red  *,i2.'»  Time  * »f9 ,2> ' > il , ivthrt< i 1 > ,tnow 
call  cmpll0(i3 ,n2,n3,n4) 
return 
endif 

150  continue 

* 

*  Section  1000  is  the  CAP  section  which  Keeps  the  aircraft 

*  assigned  to  CAPs  in  their  proper  patterns, 

* 

*  QSEKNTRY2+9)  J  -2  =>  Straight  Out 

*  -1  =>  Turn  Out 

*  0  *>  Not  Used 

*  1  *>  Turn  In 

*  2  =.-■  Straight  In 

*  3  =>  Initial  Pass  Through  This  Section 

*  4  =>  Departing  Base 

* 

1000  ntryl  =  locat<il,l) 
ntry2  =  locat(il,2) 
qset(ntryl49)  =  585 
qset(ntrylflO)  =  20000 

* 

*  Desired  airspeed  and  altitude  are  set  to 

*  CAP  airspeed  and  altitude. 

* 

if  (qset (ntry246 ) .eq .2)  then 

* 

*  If  there  is  a  wingmanr  he  is  positioned  45  degrees 


*■  « 


bocK  and  3000'  out. 

n7  =  qset(ntry2+l ) 
nS  =  locat(n7.1) 
n6  =  locat(n7»2) 

>:1  =  30C0*(cos(135./57.3)*qset(n5+4)-sin( 135./57.3)# 

+  qset(n5+5)) 

y,2  -  3000*<sin<l35./57.3)*qset(n5+4)+cos(135./57.3)* 

+  qset<n5+5)) 

qset  (ntryl+1 )  =  3set(n5+l  )+::l 
qset(ntryli-2)  =  qset(n5+2)+>:2 
qset(ntryl+3)  =  qset(n5+3) 
qset(ntryl+4)  =  qset(n5+4> 
qset(ntryl+5)  =  qset\'n5+5> 
qset(ntr> 1+6)  =  qset(n5+6> 

%  if  (qset(ntry2+9) .ne.qset(n6+9) ) 

*  +  write<8, '  (5x,*Blue  2,  CAP  **,il,",  Speed  ',f7.2.*.  Time 

*  +  f9.2/5x,  ‘Position:  * ,3(  *X(  • . il .  • ) : 1  ,f  13.2.2>:)/5>:,  * Veloc ity t 

*  +  3< *X( * »il . * ) t  * »3x? f8.4»4x) ) ' )n2.qset(ntryl+7) ,tnow. 

*  +  (.j2»qset  (ntry  1+J2)  ».j2=l  .3) .  <.j2>  qset  (ntry  l+3+.j2)  ,.j2=l » 3) 

qset(ntry2+9)  =  qset(n6+9) 
qset(ntry2+10)  =  aset(n6+10> 
return 
endif 

if  (thrt(il,l) ,le. 200000)  then 
4  n6  =  locat ( ithrt( l 1 . 1 ) . 6) 
n7  =  locat(ithrt(il.l).7) 
if  <qset<n7+10).lt.lll)  then 
do  6  ,j2  -  1,9 

ithrt(  il  ,.j2)  =  ithrt(il,.j2+l  > 
thrt(ilf,j2)  =  thrt(  il , ,j2+l ) 

6  continue 

ithrt(il.lO)  =  0 
thrt(il.lO)  =  999999 
ithrt(il,ll>  =  ithrt(il.l) 
thrt ( l 1 » 1 1 )  =  thrt(il.l) 
nthrt<il)  =  nthrt(il)  -  1 
if  (nthrt( il ) .gt.O)  go  to  4 
go  to  8 
endif 

if  <qset(n6+2) .gt. 10389200)  go  to  8 

* 

*  Aircraft  from  CAPs  1  and  3  commit  first ,  on 

*  targets  within  40  NM.  CAP  3  commits  on 

*  targets  within  30  NH, 

* 

qset(ntry2+9)  =  1 
ncop(n2)  =  ncap(n2)-l 

if  (qset (ntry2+l ) .ne.O)  ncap(n2)  =  ncap(n2)-l 
if  <db  <5>  > 

+  write<8. ' <5x, ’Blue  ’,131'  committed  from  CAF  •Fi2.,»  Timet* 
+  ,f 8 .2) ' ) 1 1 » n2, tnow 

n2  =  10 

call  cmp 1 00 ( 1 1 .n2.n3.n4 ) 
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return 

endif 

8  ntry5  =  locat(n2,5) 
do  10  J1  =  1,3 

vec2(jl)  =  qset(ntry5+jl ) 
vecl(.jl)  *  qset(ntryl+.jl ) 
vec(.jl)  =  qset(ntrylt3+jl ) 

10  continue 

if  <qset(ntry2+9) .gt.3.5)  then 
Aircraft  is  departing  base 
if  <db<5) ) 

+  write(9» '  (5>:;  'Blue  *,i3,*  departed  base  at  Time  *,f7.2 

+  *  for  CAP* ,i3) ' ;il »tnow,n2 

call  los( vecl , vec2,f los,xmag ,phi ) 

Establish  Line-of-Sight  vector  from  PP  to  CAP  Point 

qset(ntry2+9)  =  2 
qset(ntryl+7)  =  585 
qset(ntryl+9)  =  585 
qset(ntrylflO)  =  qset (ntry5P3 ) 
uvec(l)  =  flos(l )#cos(-10./57.3) 
uvec(2)  =  flos(2)*cos<-10./57.3) 
uvec(3)  =  sin(-10./'57.3) 
call  unit(uvec»uvec ) 
do  14  ,jl  =  1,3 

qset(ntryl+3+jl )  =  uvec(,jl) 

14  continue 
go  to  30 
endif 

if  (qset<ntry2+9) .gt.2.5)  then 

This  is  first  time  into 

Subroutine  Compute  on  CAP  assignment, 

call  los<  vecl ,  vec2,f  los,x«iag  ,phi ) 
qset(ntry2+9)  =  1 
qset(ntryl+9)  =  585 
qset(ntryltlO)  =  qset(ntry5+3) 
ncap(n2)  =  ncap(n2)+l 

if  (qset(ntry2+l) ,gt,0)  ncap(n2)  =  ncap(n2)  +  1 
endif 

call  los(vecl,vec2,flos,xmag,phi ) 

ChecK  to  see  if  aircraft  outbound  in  CAP 
has  reached  the  far  end. 


if  ( <qset(ntry2+9) .  lt»-l  .5)  .and.  <>:»ag  .gt.72000) )  then 
if  (db ( 1 ) ) 

+  write(8» ' (5x, ’Blue  1,  CAP  ♦*,il,*,  Speed  *,f7.2.*,  Time 
+  f  9, 2/5::, 'Position:  *  ,3<  *X<  * ,  ll , 1 ) J *, f 13. 2. 2x>/5x,* Velocity 
+  3  ( *  X  <  * ,  1 1 ,  * ) : *,3>:,f 8.4,4:: ) ) ' )n2,qset(ntryl  +  7) ,tnow, 


+  ( j2. vecl  <  J2) » J2=l  >3) ,  (,j2t  vec  ( j2)  ».j2=l  ,3> 

if  (db (15 ) 

+  write(8t  '  (5x,  ‘CAP  ‘til,*  range  is  ‘,f5.1,‘  NM'/lOx,  ‘CAP 
+  il,*  location  is  ■ ,3< *X( * ,il , • ) : ■ , f 13.2,2x) ) ' )n2, 

+  xmag/6000.  »n2»  (.j2»vec2(.j2>  ,.J2=1»3) 

qset(ntry2+9)  =  1 
if  <db<5>) 

+  writeO, '  (Sx,  'Blue  *ti2i.*  turning  inbound  in  CAP  ‘til. 

+  *»  Tine 5  * ?f8.2) ' ) il ,  n2t tncw 

go  to  30 
endif 

ChecK  to  see  if  aircraft  inbound  to  CAP 
has  arrived. 

if  < (qset(ntry2+?) .gt. 1 .5) .and. (xmag . le.3000) )  then 
if  (db (1) ) 

+  write(8» y  (5>:»  ‘Blue  1,  CAP  *‘,il,‘,  Speed  ‘,f7.2,‘,  Time 
+  f9.2/5>:t  "Position  2  * ,3< *X( ‘ , il , ‘ ) i ‘ ,fl5.25/5x, ‘Velocity 

+  3(  *X(  *  f  j  1  ?  * )  { *  »3x»f8.4.4>:) ) '  )n2»qset(ntryl+7) .  tnow, 

+  (.j  2  .vecl  (.j2) ,  J2= 1  »3) ,  < j2t vec (,j2) » ,j2=l »3) 

if  <db( 1 ) ) 

+  write(8,'(5x,  ‘CAP  ‘,il,‘  range  is  ‘.f5.lt*  NM’/'lOxt  ‘CAP 

+  il » ‘  location  is  ■  ,3<  *X(  • , il ,  ‘  > .“  , f  15.2) ) '  )n2, 

+  xmag/6000.  ,n2,  ( J2*  vec2 ( .j2) . ,j2=l  .3) 

qset(ntry2+9)  =  -1 
if  <db(5> ) 

+  write(8. '  (5>;»  "Blue  ‘.12.’  turning  outbound  in  CAP  ‘,i2. 

+  ‘.  Time  ' . f7.2) 7 ) il . n2. tnow 

go  to  30 
endif 

if  (abs(qset(ntry2+9) ) .gt. 1 .5)  go  to  30 

ChecK  to  see  if  aircraft  turning 
inbound  have  completed  the  turn. 

if  (qset (ntry2+9) .gt.O )  then 
call  los( vecl  »vec2» f los» >:mag . phi  ) 
call  dot(vec .f lostdprodtc  f theta  ) 
if  (abs(theta) .It. (10./57.3) >  then 
do  20  jl  *  1,3 

qset(ntryl+3+,jl )  =  flos(,jl) 

0  continue 

qset(ntry2+9)  =  2 
if  (db ( 1 ) ) 

+  write(8t ' (5x, ‘Blue  1,  CAP  *‘,i2,‘t  Speed  ‘,f7.2,‘.  Time 
+  f9.2/5>:, ’Position:  *  ,3(  ‘X(  *,  i2,  ‘  )J  ‘  ,f  15. 2)/5x,  ‘Velocity; 

+  3(  ‘X(  ‘  t  i2t  ‘ )  5  ’  »3x,f8.4t4>:> ) '  )n2fqset(ntryl+7) .  tnowt 

+  (.j  2,  vecl  <J2) ,  ,j2=l  ,3) ,  (j2,  vec  (.j2)  ,.j2=l  ,3) 

if  (db ( 1 ) ) 

+  write(8. '  (5x.  ‘CAP  ‘,ilt‘  range  is  ‘,f5.1,‘  NM*  ''1  (V-: ,  ‘  CAP  1 
+  ilt‘  location  is  •  ,3( *X( • ,il , ‘ ) : ■ ,fl5.2> ) ' )n2, 

+  xmag  ''6000. .  n 2 » ( j 2 1  vec2  ( . j  2 )  t  .j 2=  1 T  3) 
if  (db (5> ) 


*  +  write<8, '  (5>:» 'Blue  * ,i 2,’  headed  inbound  to  CAP  *,il, 

*  +  ’,  Time:  * ,f8.2) ' ) il ,n2, tnow 

go  to  30 
endif 

call  turn (vec  »flos» 2.5, n try 1 , d tnow, q set (n try 1+7) ) 
go  to  30 
endif 

do  22  J1  =  1,3 

vec2(,jl)  =  qset(ntry5+3+.jl ) 

22  continue 
vec2(3)  =  0 
call  unit(vec2, vec2) 
call  dot(vec,vec2»dprod,c , theta) 

* 

*  If  the  turn  is  complete  , 

*  assign  the  appropriate  code. 

* 

if  (theta.lt. (5. /57. 3) )  then 
qset(ntry2+9)  =  -2 
if  (ctb(l)) 

+  write<8, '  (5>:»  ’Blue  i,  CAP  #’,i2,’,  Speed  ,,f7.2,,»  Time  ’, 
+  f9. 2/5::, ’Position:  •  ,3< ’X<  •  ,i2,  ’  K’ ,fl5.2)/5xf ’Velocity: 

+  3<  *X<  * ,  i2,  ’ )  l  ’  ,3>:,f8.4,4x) ) '  )n?,qset  (ntryl  +7) ,  tnow, 

+  C.j2,vecl(st2),.j2=l,3),(.j2,vec(J2),.j2=l,3) 

if  ( db ( 1 ) ) 

+  write(8, '  <5>:,  ’CAP  range  is  *,f5.1,’  NM’/10x,  TAP 

+  il,*  location  is  • ,3( *X< * , l 1 , * ) : * ,f 15.2) ) ' )n2, 

+  xmaq/6000.  ,n2,  (.j2,qset(ntry5+.j2)  ,.j2=l  ,3) 

*  if  (db (5) ) 

*  +  write(8, ' (5x, ’Blue  ’,i2,*  headed  outbound  in  CAP  ’,il, 

*  +  ’,  Theta  =  ’,f8.4,’,  Time:  ■ ,f8.2) ' ) i 1 ,n2, theta, tnow 

go  to  30 
endif 

call  turn ( vec , vec2,2. 5,ntryl , d tnow, q set (ntryl+7) ) 

* 

*  Level  Off  (if  required) 

* 

*  ChecK  to  see  if  the  aircraft  is  close 

$  enough  to  his  desired  altitude  to 

*  begin  to  level  off. 

« 

30  delta  =  abs(qset(ntryl+10)-qset(ntryl+3) ) 
vvi  =  abs(0.6*qset(ntryl+6)#qset(ntryl+7) ) 
ddlta  =  ma>:<  1000. /60, ,  vvi ) 
if  (delta. It. ddlta)  then 
sign  =  1 

if  (qset(ntryi+6) .lt.0)  sign  =  -1 
if  (delta. It. 200)  then 
qset(ntryl+6)  =  0 
else 

qset (ntryl+6)  =  qset(ntryl+6)+ddlta*sign 
endif 

do  32  .jl  =  1,3 

vecl(.jl)  =  aset( ntryl+3+.jl  > 
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subroutine  c»p40(il ,n2,n3,n4) 

The  dummy  variables  reoresent  the  following; 


iir 

n2J 
n3J 
n4 ; 


* 

* 

* 

« 

* 

* 

* 

i m»***m»*mm*x*m*m**m**m********x*********x***»¥«t***x***« 

*  *  * 

*  This  section  controls  the  Rod  Fscort  fighters.  * 

t  * 

ttt*****tt**txt*t***t*****tt*t*t*******x***x*t***t%**t*****%*t*t****ir*** 


aircraft  callsign 
mission  code  derivative 
wingman's  call  sign 
blue/red  file  pointer 


common/scoml/atrib  < 100),dd(100),ddl(100),dtnow,ii  ,mfa,mstop  ,nclnr , 
lncrdr ,nprint, nn run, nnset,n tape, ss  (100),ssl(i00),  tnext,tnow,>:>:(  100) 
common  qset< 15000) 

common/ucoml/nsectr (6)  ,ncap  (3)  ,nb  ,nr ,  ithrt(24, 11 ) , thrt(24, 1 1 ) , 
+nthrt(24)Pvthrt(24),ivthrt<24) ,blue(3) , redb(3,3> , 
+itrr(80,ll),thtrr(80,ll),ntrr(80)pvtrr(80), 
tivtrr (80) 
common/ucom2/db (20) 
logical  db (20) 

dimension  vecl  (3) ,  vec2(3)  , >:los(3) , 

1  vbl(3)Pvb2(3)Pvb3(3>,vrl(3>,vr2(3>,a(10> 
if  (db(10))  write(8  r '  <  5>: ,  *C»p40 ,  Time  * , f  9 . 2 ) '  )tnow 
4000  ntry6  =  locat(il,6) 
ntry7  =  locat(il,7) 
if  (qset(ntry7+6) .eq.2)  return 
n5  =  0 

if  (qset (ntry7+l ) .gt.O)  then 
n5  =  il  +  1 
n6  =  nsucr(ntry6) 
n7  =  nsucr(ntry7) 
do  4010  jl  =  1,3 

vecl(jl)  =  qset(n6+.jl) 
vec2(.jl)  =  qset(n6+3+,jl ) 

4010  continue 

if  (qset(n7+?) .eq.O)  qset(n7+9)  =  1 
endif 

if  <qset(ntry7+9) .eq .3)  then 
ntry8  =  locat(il,8) 
if  (qset(ntry8+l) .le.O)  then 
qset(ntry7+9)  =  2 
endif 
endif 

if  ( (ntrr ( i 1 ) .gt.O) .and. (qset(ntry7+9) . lt.l .5) ) 

+  qset(ntry7+9)  =  2 
if  (nS.gt.O)  qset(n7+9)  =  2 
do  4006  J1  =  1,3 

vrl(.jl)  *  qset(ntry6+,jl ) 
vr2(.jl)  =  qset(ntry6+3+,jl ) 

4006  continue 

if  ( qset (ntry7+9) .eq .0 )  qset(ntry7+9)  =1 
if  (qset(ntry?+8) .eq .2)  go  to  4400 
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4300  if  ( (qset(ntry7r9) .eq.3) .or. ;qset(ntry7+y ) .eq.2) )  then 
nlO  =  itrr ( il , 11) 
if  <nlO.it. 0.5)  then 
qset (ntry7t9)  =  1 
if  (nS.gt.O)  qset(n7+9)  =  1 
do  4008  jl  =  1,11 
itrr(il,.jl)  =  0 
thtrr < il , jl )  =  999999 
4008  continue 

ntrr(il)  =0 
go  to  4100 
endif 

nil  =  locat(nlO»l) 
nl2  «  locat(nl0,2) 
if  (qset (n 12+10) . It . Ill )  then 
qset (ntry7+9)  =  1 
if  (n5.gt.O)  qset(n7+9)  =  1 
do  4310  .jl  =  1,11 

itrr(il,.jl)  =0  - 

thtrrdl ,  jl )  =  999999 
4310  continue 

ntrr(il)  =  0 
go  to  4100 
endif 

do  4312  .jl  =  1,3 

vbl(.jl)  =  qset(nll+,jl ) 
vb2(  jl)  =  qset(nll+3+.jl) 

4312  continue 

call  los<  vrl ,  vbl  ,;<los,>:mag  ,ph  j  ) 

if  <  (qset  (ntry7+9)  .eq  .2)  .and .  <>:»iag  .  1 1 . 3000 ) )  then 
qset(ntry7+9)  =  1 
if  (nS.gt.O)  qset(n7+9)  =  1 
do  4318  jl  =  1,11 
itrr(il,.jl)  =  0 
thtrr(i) ,jl )  =  999999 
4318  continue 

ntrr( il )  =0 
go  to  4100 
endif 

coll  dot(vr2,>:los»dprod,c  ,  theta  1 ) 
coll  dot(vb2,xlos,dprod,c ,  th<?ta2> 
rtheta  =  atan(qset(ntry6+7)/(4.0*32.2) ) 
if  (obs( thetal ). It . rtheta)  then 
do  4314  .jl  =  1.3 

qset(ntry6+3i  j l )  =  xlos(.jl) 

4314  continue 

else 

call  turn ( vr2,xlos, 4 . 0,ntry6,dtnow,qset ( n try 6+7) ) 
endif 

if  (nS.qt.0)  then 
do  4320  jl  =  1,3 

qset  (n6+3+.j  1 )  =  qset(ntry6+3+,jl ) 

4320  continue 


*  'nb*  and  *nr*  are  the  nuiiber  of  Blue  and  the 

*  number  of  Red  aircroft  available. 

* 

do  32  ,jl  =  1,14 

x  >r  <  .j  1 )  =0 
32  continue 
xxd)  =  4 
>:>:<2)  =  16 

* 

*  XXd)  and  XX(2)  are  the  number  of 

*  Blue  and  Red  aircraft  involved 

*  in  the  simulation  run. 

* 

blued)  =  10e6 
blue(2)  =  10e6 
blue(3)  =  0 

* 

*  ‘blue*  is  an  array  which  holds  the  coordinates 

*  of  the  blue  airrfield. 

* 

a(l >=10e6 
a (2) =10e6 
do  12  jl  =  l,nb 
call  fileiridfa) 

12  continue 

* 

#  The  aero  information  and  operational  files 

*  are  initialised  with  the  values  the 

#  aircraft  would  have  sitting  on  the  base. 

* 

ad)=0 

#  The  first  element  will  be  the  wingman's  call  sign 

a(2)=14500 

#  Second?  fuel  load  in  pounds. 

a ( 3 )=4 

*  Third?  number  of  radar  missiles. 

av  4)=4 

*  Fourth?  number  of  heatseeKing  (IR)  missiles. 

a ( 5)=9 

*  Fifth?  number  of  seconds  of  cannon  fire. 

a<9)=4 

#  Ninth?  mission  flag  (4  d%  nroff  -o,35-  AppenC 


4400 


4408 


4410 


4412 


4414 


4416 


go  to  4350 
end  if 

if  ( (qse+<ntry7+9) .eq .3) .or . ( qset (ntry7+9) .eq .2) )  then 
nlO  =  itrr(il ,  11 ) 
if  (nlO.lt. 0.5)  then 
qset(ntry7+9)  =  1 
if  (nS.gt.O)  qset(n7+9)  =  1 
do  4408  .jl  =  1,11 
itrr(il,.jl)  =  0 
thtrr(il,Jl)  -=  999999 
continue 
ntrr< il )  =0 
go  to  4100 
endif 

phil  =  20./57.3 
phi2  =  -20./57.3 
theta  =  10/57.3 
nil  =  locot(nl0,l) 
n 12  =  locat(nl0,2) 
if  (qset (n 12+10) , It . 1 11 )  then 
qset (ntry7+9)  =  i 
if  (n5.gt.O)  qset(n7+9)  =  1 
do  4410  .jl  =  1,11 
itrr(il,.jl)  =  O 
thtrr  <  1 1 ,  ,j  1  )  =  799999 
continue 
ntrr(il)  =  0 
go  to  4100 
endif 

do  4412  .jl  =  1,3 

vbl(.jl)  =  qset(nll+,jl ) 
vb2(.jl)  =  qset(nll  +  3+,jl ) 
continue 

call  los(''~l  ,vbl  ,:-:los,>:»ag,phi ) 
call  dot ( vr2,xlos, dp  rod ,c , thetal ) 
call  dot(vb2,xlos,dprod,c,theta2) 
rtheta  =  atan<qset(ntry6+7)/(4.0*32.2) ) 
if  (>:mog  .  le. 60000)  then 

if  (abs( thetal ). le . rtheta)  then 
do  4414  jl  =  1,3 

qset(ntry6+3+,jl)  =  xlo<>(,jl) 
continue 
else 

call  turn  (vr2,::lo5,4.0, ntry6,dtnow,qset(ntry6+7) ) 
endif 

if  (nS.gt.O)  then 
ntrr(n5)  =  1 
do  4416  jl  =  1,11 

thtrr(n5,.jl )  =  999999 
itrr(n5,.jl)  =  0 
continue 

itrr (n5, 1 )  =  l trr ( i 1 , 1 ) 
ltrr(nS.ll)  =  ltrr(il.l) 
thtrr(n5,l)  =  thtrr(il,l) 
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thtrr(n5,ll)  =  thtrr(il,l) 
call  los(vecl,vbl  ,>:los,xiiagi  ,phi ) 
coll  dot(vec2,xlos»dprod ,c  ,  thetal ) 
if  (abs( thetal ) . le. rtheta)  then 
do  4428  jl  =  1,3 
qset(n6+3+.jl )  =  xlos(.jl) 

4428  continue 

else 

call  turn(vec2,xlos,4.0,n6,dtnou,qset(ntry6+7) ) 
endif 
endif 

go  to  4350 
endif 

if  (xmag .le. 120000)  then 

vb3(l)  =  >:los(l)  $  cos(theta)  +  >:los(2)  t  sin(phil) 
vb3(2)  =  xlos(l)  *  (-cos(theta) )  *  sin(phil)  +  xlos(2)  # 

+  cos(theta'  *  cos(phil)  +  >;los(3)  *  sin(theta) 

vb3(3)  =  xlos(l)  t  sin(theta)  *  sin(phil)  +xlos(2)  * 

+  (-sin ( theta) )  *  cos(phil)  +  xlos(3)  *  cos(theta) 

call  unit(vb3,vb3) 
call  dot(vr2,vb3,dprod,c , thetal ) 
rtheta  =  atan(qset(ntry6+7)/(4.0#32.2) ) 
if  (abs( thetal ). le . rtheta)  then 
do  4422  .jl  =  1,3 
qset(ntry6+3+.jl )  =  vb3(.jl) 

4422  continue 

else 

call  turn(vr2,vb3,4.0,ntry6,dtnow,qset(ritry6+7)  ) 
endif 

if  (nS.gt.O)  then 

call  los( vec 1 , vbl , xlos, xmag , phi ) 
call  dot ( vec 2, x 1 os, dp  rod, c , thetal ) 
vbl(l)  =  xlos(l)  *  cos(theta)  +  xlos(2)  *  sin(phi2) 
vbl(2)  =  xlos(l)  t  (-cos(theta)  >  *  sin(phi2>  +  xlos(2)  * 
+  cos(theta)  *  cos(phi2)  +  xlos(3)  *  sin(theta) 

vbl(3)  =  xlos(l)  *  sin(theta)  *  sin(phi2)  +xlos(2)  * 

+  (-sin(theto) )  #  cos(phi2)  +  >:los(3)  *  cos(theta) 

call  unit(vbl,vbl) 
call  dot (vec 2, vbl ,dprod,c ,theta3) 
if  (abs(theta3) . le. rtheta)  then 
do  4426  .jl  =  1,3 

qset(n6+3+.jl )  =  vbl(.jl) 

4426  continue 

else 

call  turn(vecl , vbl,4.0,n6,dtnow,qset(no+7)) 
endif 
endif 
endif 
endif 

4350  if  (qset(ntry7+9) ,eq .3)  return 
if  (qset(ntrv7+9) ,eq ,2)  then 

max  =  15000  +103000  *  sin(abs(theta2/6  ■  ) 
rmin  =  6000  +  10000  *  sin (abs ( theta2/3) ) 
htmax  =  6000  -  qset(ntry6+3) 74 
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ntein  =  1500  +3000  t  sin<abs(theta2) ) 
if  <abs< theta2) .gt. (45./S7 .3) )  htmin  =  htnax 
if  ( (xiiag.gt.htinin)  .and.  (xsiag.lt. htmax) )  then 

if  (abs(theta2) .It. <45./57,3> .and . ( qset <n try 7+4) . gt.O) ) 
then 

if  (abs<thetal ) . It. ( 10./57.3) )  then 
qset ( ntry7+4 )  =  qset(ntry7+4)  -  1 
qset(ntry7+9)  =  1 
do  4330  .jl.=  1,3 

a(jl)  =  qset(ntry6+,jl ) 
q(j1+3)  =  qset(ntry6+3+Jl > 
continue 

a(7)  *  qset(ntry6+7)  +  1000 

a(8)  =  22 

a(9)  =  nlO 

q(10)  =  xeag 

call  file*(9,a) 

write(8, ' (5x, ‘Red  *,i3,*  launched  heatseeKer  at 
'Blue  *,i3,'  Time  * , f9.2) ' ) il ,nlO, tnow 
>:x  (14)  =  xx  (14)  +  1 
qset(ntry7+9)  =  1 
if  (n5.gt .0)  qset (n 7+9)  =  1 
do  4332  jl  =  1,11 
itrr(il,.jl)  =  0 
thtrr  ( 1 1  ,.jl )  =  999999 
continue 
ntrr( i 1 )  -  0 
go  to  4100 
endif 
endif 
endif 

if  ( (qset(ntry7+3) .gt .0) .and . <qset(ntry7+9 ) >ne .3) )  then 
if  < (xmag .gt . rmin ) .and . (xmag . It. rmax ) >  then 

if  ( (phi .gt • 0.17452). and. (qset(ntry6+3) . gt . -10000 ) ) 
return 

if  (abs(thetal ). le. .34904)  then 
do  4334  .jl  =  1,3 

a(.jl)  =  qset(ntrye+,jl ) 
a(.jl+3)  s  qset(ntry6+3+.jl ) 
continue 

a(7)  =  qset(ntry6+7)  +  1100 

a(8)  =  90 

a (9)  =  nlO 

a  (10)  =  xi»ag 

ntry8  =  locat(il,8) 

do  4336  Jl  =  1,10 

qset(ntry8+.jl )  =  a(.jl) 
continue 

write(8, ' (5x, 'Red  ',i3,*  launched  radar  missile  at 
'Blue  ',i3,'  Time  ' ,  f  9.2)  '  >  i  1  ,n  10,  tnow 
qse* (ntry7+3)  =  qset ( ntry7+3 )  -  1 
qset(ntry7+9)  =  3 
>:x(  13  >  =  xx  ( 1 3 )  +  1 

if  ( (nS.gt.O)  .and .  ( itrr  (n5, 1 .1  )  .eq .  itrr  <  il ,  11 ) ) )  then 


do  4340  J1  =  1,3 

vrl(jl)  =  qset(n6+jl) 
vr2(jl)  =  qset(n6+3+,jl ) 

4340  continue 

call  los(vrl,vbl,xlos,x»ag,phi) 

if  ( (xmag  .gt .  rain  )  .and .  (xmag .  1 1  *  f#QX ) )  then 

if  ( (phi ,gt. 0.1 7452) .and. (qset(n6+3) .gt.- 10000) ) 

+  return 

if  (qset<ntry7+3> .le.O)  return 
if  <cset(ntry7+9) .eq .3)  return 
if  (abs(thetal).le. .34904)  then 
do  4342  .jl  *  1,3 

a(jl>  =  qset(no+jl) 
a(jl+3)  =  qset(n6+3+jl ) 

4342  continue 

a(7)  =  qset(n6+7)  +  1100 

a(8)  =  90 

o(9)  =  nlO 

a(10)  =  xmag 

ntry8  =  nsucr(ntry8) 

do  4338  Jl  =  1,3 

qset (ntry8+Jl )  =  a(jl) 

4338  continue 

write(B» ' (5x, 'Red  ',i3,'  also  launched  radar  * 

+  'missile  at  Blue  ',i3,'  Time  ' ,f9.2) ' )n5,nl0,tnow 

qset(n7+9)  =  qset(n7+3)  -  1 
qset(n7+9)  =  3 
>:>:  (13)  =  >:>:  (13)  +  1 
endif 
end  if 
return 
endif 
endif 
endif 
endif 
endif 

4100  if  ( qset (ntry7+9) . It . 1 . 5 )  then 
if  (qset(ntry7+7) .eq . 1)  then 
do  4110  jl  *  1,3 
vbl(jl)  =  blue(.jl ) 

4110  continue 

call  los(vrl,vbl  ,xlos, xmag, phi ) 
call  dot(vr2,xlos, dp  rod ,c , theta) 

>:3o5(3)  =  0 

call  unit(xlos,xlos) 

rtheta  =  atan(qset(ntry6+7)/(3.5*32.2) ) 
if  (abs(theta) .le. rtheta)  then 
do  4112  jl  =  1,3 

qset(ntry6+3+,jl )  =  >:los(.jl) 

4112  continue 

else 

call  turn(vr2»>'los,3.5»ntry6*dtnow,qset(ntry6+7) ) 
endif 

if  ( qset (ntrv7+6 ) .eq . 1 )  then 


4116 


4118 


4120 


4114 


if  (xaag.lt. 72000)  then 
qsi?t(ntry7+7x  =2 
if  (nS.gt.O)  qset(n7+7)  =  2 
endif 
endif 
endif 

if  (qset(ntry7+7) .eq.2)  then 
if  (>:»og. It. 30000)  then 
qset(ntry7+lQ)  =  100 
write<8, '  (5x,  ‘Red  *,i3,*  landed.  Tine  *,f9.2)')i 
if  (nS.gt.O)  then 
qset(n7+10>  =  100 

write(8, ' <5x, ‘Red  *,i3,*  landed,  Time  *f9.2)' 

+  n5,tnow 

endif 
return 
endif 
n8  =  1 

if  (il.gt.40)  n8  =  2 
do  4116  ,jl  =  1,3 

vbl(.jl)  =  redb(n8,Jl) 
continue 

call  los(  vrl ,  vbl  ,xlos,xniag  ,phi  ) 
call  dot(vr2,>:los,dprod ,c, teta ) 
rtheta  =  atan(qset(ntry6+7)/(3.5*32.2> ) 
if  (abs(theta) .le.rtheto)  then 
do  4118  .jl  =  1,3 

qset(n6+3+Jl )  =  qset(ntry6+3+Jl ) 
continue 
endif 
endif 
endif 

if  (nS.gt.O)  then 

if  < (qset(ntry7+8) .eq .2) .and . (nS.gt.O) )  then 
call  1  os  (vrl  ,vecl  ,xlos»>:mag  ,phi ) 
if  (xinag .gt.2000)  then 
call  dot(vec2,xlos,dprod,c ,thetol ) 
if  (abs(thetal) .le.rtheto)  then 
do  4120  Jl  =  1,3 

qset (n6+3+Jl )  =  xlos(Jl) 
continue 
else 

call  turn(vec2, >:losr4,0,n6,dtnow,qset(n6+7) ) 
qset(n6+9)  =  qset(ntry6+7)  *  1.2 
endif 
return 
else 

qset(n6+7)  =  qset<ntry6+7) 
qset(n6+9)  =  qset(ntry6+9) 
endif 

do  4114  Jl  =  1,3 

qset(n6+3+.jl )  =  qset  <  ntry6+3+,jl ) 
continue 
endif 


1 ,tnou 
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subroutine  c»p60( il ,n2,n3,n4) 

X  The  dummy  variables  represent  the  following! 

* 

X  il!  aircraft  callsign 

*  n2!  mission  code  derivative 

X  n3!  wingman's  call  sign 

*  n4!  blue/red  file  pointer 

X 

*XXXXXX*X#*XXXXXXXX*XXX**XXXXXXXX**#XXXXXX***X*X*********X**XX****XX*#*X 


X  X 

X  This  subroutine  flys  heatseeKing  (IR)  missiles  out  X 

X  to  targets  and  determines  whether  the  target  is  killed.  X 

X  X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

common/scoml/atrib  < 100) ,dd  < 100) ,ddl ( 100) ,dtnow, ii ,mfa  , mstop  »nc lnr , 
Inc rd r, np rint,nn run, nnset,n tape,  ss( 100) , ss  1(100)  ,tne::t,tnow, ;•:>:(  100) 
common  qset(15000) 

common /ucoml/n sec tr (6 ) ,ncap (3) ,nb ,nr, ithrt<24, 11 ) ,thrt (24, 1 1 ) , 
fnthrt (24) , vthrt <24 ) , i vth  rt(24),blue(3), redb (3, 3) , 
+itrr(80,ll),thtrr(80,ll),ntrr(80),vtrr(80), 
fivtrr (80) 
coi»mon/ucom2/db(20) 
logical  db(20) 
character  cslX4,cs2X4,cs3X6 
dimension  flos(3), 

1  vbl(3),vb2(3),vrl(3),vr2<3) 
if  (db  ( 10) )  write(8, '  < 5>: ,  *Cmp60,  Il  ‘,i3, 

+  *,  Time  1 ,  f9,2) ' ) il ,tnow 
6000  ntry4  =  mmle(il) 
nn4  =  nnq(il) 
n7  =  6 
n8  =  7 
csl  =  'Blue' 
cs2  =  '  Red ' 
cs3  =  'is  not' 
if  (il.eq.9)  then 
n7  =  1 
n8  =  2 
csl  =  '  Red' 
cs2  =  'Blue' 
endif 

do  42  .jl  =  nn4,l,-l 
ics  =  qset( ntry4t9 ) 

X  write(8, ' <5x, ’Heat  missile  section,  ICS  =  ‘,i4,‘,  Jl  =  *,i3, 

X  +  *,  N7  * , i3, * ,  N8  ' , 1 3 ) ' ) 

X  +  ics,.jl  ,n7,n8 

ntry6  =  locat( ics,n7) 
ntry7  =  locat ( ics, n8 ) 

X  if  (tnow.ge. 1000)  write<8, ' (5x, ‘Point  1‘)') 

if  (qset (ntry7+10) . It. 1 11 >  then 

wnte(8, '  (5>:,  ’HeatseeKer  gone  ballistic,  Target  *,q4, 

+  2>:,i2,‘  already  dead .  ‘ )  '  )cs2,  ics 

call  u  1  i  n  k  ( .j  1 ,  i  1 ) 
go  to  o048 
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*  if  (tnow.ge. 1000)  write(3, '  (5x,  'Point  2')') 
do  44  J2  =  1,3 

vbl(.j2)  =  qset(ntry4+.j2) 
vb2(.j2)  =  qset(ntry4+3+.j2> 
vrl(.j2)  =  qset(ntry6+.j2) 
vr2(.j2)  =  qset(ntry6+3+,J2) 

44  continue 

*  if  (tnow.ge. 1000)  write<8, ' (5x, ‘Point  3*)') 

coll  los( vbl .vrl ,f los, xmag ,phil ) 

coll  dot(vb2,vr2,dprod,c , theto3) 
vel  =  qset(ntry4+7) 

*  if  (tnow.ge. 1000)  write(8, '  (5x,  'Point  4’)') 

do  46  .j  2  =  1,3 

qset  (ntry4+3+J2)  =  flos(.j2) 

qset(ntry4+J2)  =  qset(ntry4+j2)+qset(ntry4+3+.j2)*vel*dtnow 
vbl(.j2)  =  qset(ntry4+J2) 

46  continue 

*  if  (il.eq.4) 

*  +  write<8» '  (5x»  'Heat  missile  section.  Target  is  ’,05,13, 

%  +  *  Speed  ’,f7.2,*  fps,  Time  ’  ,f7.2) '  )cs2, ics,vel , tnow 

%  if  (il.eq.4) 

*  +  write<8, ' <5x, ’Missile  position?  ’  ,3(  *X(  ’ , il ,  ’ )  J ’  ,f  15.2)/ 

*  +  13>:,  ’Velocity:  * , 3<  ’X(  ’ , 1 1 ,  * )  J  •  ,2x, f 9. 4 ,4x) ) ' ) 

*  +  (.j2,vbl(j2),.j2=l,3),(.j2,vb2(.j2),.j2=l,3> 

*  if  (il.eq.4) 

*  +  write<8, '  (5>:»  ’  Target  position:  *,3< ’X<  ’  ,il ,  ’ )  5  ’  ,f  15.2)/ 

*  +  13x, ’Velocity:  * ,3( ’X( ■ ,il , • ) : • ,2x, f9.4 ,4x> ) ' ) 

*  +  (.j2,vrl(.j2),.j2=l,3),(.j2,vr2(.j2),.j2=l,3) 

* 

*  The  IR  missile  calculations  ore  simpler 

*  because  it  uses  a  simple  pure  pursuit 

*  instead  of  intercept  headings. 

ft 

call  los(vbl ,vrl ,flos, xmag , phi ) 

*  if  (tnow.ge. 1000)  write(9, ' (5x, ’Point  5’)') 
comp  =  qset(ntry4+10)  -  xmag 

*  if  (il.eq.4) 

*  +  wnte(8, '  (5x, ’Previous  range?  *,fl0.2,’,  Current  Range?  ’, 

*  +  fl0.2,*  Delta?  * »f7.1 )' )qset(ntry4+10) , xmag, comp 

if  (comp.lt.0)  then 
comp  *  unf rm(0. , 1 . ,9 ) 
if  (il.eq.4)  then 

*  if  (tnow.ge. 1000)  write(8, ' (5x, ’Point  7’)') 

pK  =  .75 

if  (comp. It. pK)  then 
cs3  =  '  is  ' 
qset(ntry7+10)  =  103 
qset(ntry7+9)  =  0 
qset(ntry7+8)  =  tnow 

*  if  (tnow.ge. 1000)  write(3, ' (5x, ’Point  8’)') 

n5  =  qset(ntry7tl ) 
if  (nS.gt.0)  then 
n9  =  locat(n5,7) 


qset (n9+6)  =  1 
qset(n9+l)  =  0 
endif 

4:  if  (tnow.ge. 1000)  write(8, ' (5x, 'Point  9')') 

coll  ulinK  ( .j  1  ,il) 

*  if  (il.eq.4) 

*  +  write(8, '  (5x,  'Missile  passed  target,  Kill  determination :  '/ 

*  +  15x,'Pk  =  '  ,f6.4» ' »  Random  Number  =  *,f6.4,',  Target  ',a6, 

*  +  '  dead . ' ) '  )pk  .comp  ,cs3 

if  (db ( 5) ) 

+  write(6, ' <5x, 'Red  *»i3»’  shot  down  by  heatseeker  at  ' 

+  'coord  N' ,f 12.2, ' ,  E',fl2,2,'  Time?  ' ,f 12.2 )') ics, 

+  qset (ntry 6+1 ) ,qset(ntry6+2) ,tnow 

xx(4)  =  >:x  (4)  +  1 
>:x(8 )  =  xx  (8)  +  1 
go  to  6048 
else 

call  ulink(.jl,il) 
cs3  =  'is  not' 

*  if  (il.eq.4) 

*  +  write(8, ' <5x, 'Missile  passed  target,  Kill  determination  5  '/ 

*  +  15x,'PK  =  *,f6.4,',  RanGom  Number  =  *,f6.4,',  Target  *,a6, 

*  +  '  dead .*)' )pK , comp ,cs3 

if  <db(5) ) 

+  write(8, ' (5x, 'Red  *,i4,'  survived  heat  missile  shot. 

+  '  Time  * ,f 12.2) ') ics, tnow 

go  to  6048 
endif 

* 

*  Just  as  for  the  radar  missile,  a  pK 

*  is  calculated  at  the  point  of  closest 

*  approach,  and  compared  with  a  random 

*  to  oetermine  missile  success  or  failure. 

* 

endif 

if  (il.eq.9)  then 

it  if  (tnow.ge.  1000)  write(8, '  (5x, 'Point  10’)') 

pK  =  .4 

if  (comp. It. pk)  then 

*  if  (tnow.ge. 1000)  write(8, ' (5x, 'Point  11')') 

n5  =  qset(ntry7+l ) 
if  (nS.gt.O)  then 
n9  =  locat(n5,2) 
qset(n9+6)  =  1 
qset(n9+l)  =  0 
endif 

it  if  (tnow.ge.  1000)  write(8,'(  uXf  'Point  12* )  ' ) 

qset(ntry7+10)  =  103 
qset (ntry7t9 )  =  0 
qset (ntry7+8>  =  tnow 
call  ulinK(,jl,il) 
if  (db ( 5) ) 

+  write(8, ' (5x, 'Blue  ’,i3,'  shot  down  by  heatseeker  at 

+  'coord  N ' , f 1 2 . 2, 1 ,  E',fl2.2,'  Time:  ' ,f 12.2) ') ics, 
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+  qset(ntry6+l ) , qset(ntry6+2> , tnow 

>:x<3)  =  :<x(3)  +  1 
x>:<6)  =  xx(6)  +  1 
go  to  6048 
else 

coll  ulinK(.jl,il) 
if  (db (5) ) 

+  write(8, '  (5>:,  'Blue* ,  i4,  *  survived  heat  missile  shot*  ** 

+  *  Time. * , f 12.2) ' > ics , tnow 

go  to  6048 
endif 
endif 

* 

*  Just  as  for  the  radar  missile,  a  pK 

*  is  calculated  at  the  point  of  closest 

*  approach,  and  compared  with  a  random 

*  to  determine  missile  success  or  failure, 

* 

endif 

qset(ntry4+10)  =  >:mag 
qset(ntry4+8)  =  qset(ntry4+8)-dtnow 
if  <qset<ntry4+8) . le.O)  then 
call  ulink ( jl  ,il ) 

write<8, ' (5x, ‘IR  missile  self-destruct  at  end  of  flight  *, 

+  ’time,  Time:  • ,f 12,2) ' )tnow 

go  to  6048 
endif 

6048  ntry4  =  npred<ntry4) 

*  write(8, ' <5x, ‘Cmp60,  Bottom,  Ntry4  =  *,i6)')ntry4 

if  <ntry4.eq.O)  return 
42  continue 
return 
end 
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subroutine  cap70(il rn2,n3,n4) 

*  The  dummy  variables  represent  the  following! 

* 

X  il!  aircraft  callsign 

*  n2!  mission  code  derivative 

X  n3!  wingman's  call  sign 

*  n4!  blue/red  file  pointer 

X 

xxxxxxxxx*xxxx**xxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxx*xxxxx*xxx 


X  *  X 

X  This  section  flys  out  radar  missiles  and  X 

X  determines  their  success  or  failure  X 

X  after  tney  reach  the  target.  X 

X  X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXX 

X 

comman/scoml/atrib ( 100) ,dd(100) »dd] < 100) ,dtnow, i i rm^a , mstop  ,nc inr , 
lncrdr ,nprint,nnrun,nnset ,ntape, ss(  100) , ssl  ( 100)  ,tne>:t,t now,  >:>:(  100 ) 
common  qset( 15000) 

common/ucoml/nsectr (6) , neap  <3> ,nb ,nr, ithrt(24, 11 ) , thrt (24 , 11 ) , 
+nthrt(24) ,vthrt<24) ,ivthrt(24) , blue (3) ,redb(3,3) , 
+itrr(80,ll),thtrr(80,ll),ntrr(80),vtrr(80), 
fivtrr (80) 
common/ucom2/db  (20) 
logical  db(20) 
character  cslX4,cs2X4 
dimension  uvecl (3) ,flos(3) , 

1  tlos( 3) , vhl (3) , vb2(3) , vrl (3) , vr2(3) , vr3(3) 
if  (db(10) )  write(8,'(5>:,*Cmp70,  Time  •  ,f9.2) '  )tnow 
7000  ntry3  =  locat(il,n4) 

if  (n4.eq.3)  then 
ntryl  =  locat(il,l) 
ntry2  =  locat(il,2) 
nil  =  1 
nl2  =  2 
csl  *  'Blue' 
cs2  =  '  Red' 
n  16  =  6 
nl7  =  7 
endif 

if  (n4.eq.8)  then 
nil  =  6 
nl2  =  7 
nl6  =  1 
nl7  =  2 
csl  =  '  Red' 
cs2  =  'Blue' 
ntryl  =  locat(il,6) 
ntry2  =  locat( il,7) 
endif 

ics  =  qset(ntry3+9) 

X  if  ( (db(5) ) .and. (tnow,gt.830) ) 

X  +  write(8, '  (5>:»  ’Radar  missile  section,  ICS  =  *,i3, 

X  +  QSET(NTRY3+9)  -  * , i5 ) ' ) ics , int ( aset (ntry3+ 9 ) > 
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* 

* 

*  The  aircraft  which  is  the  target  is 

*  taken  from  the  missile  information. 

* 

ntry6  =  locat( ics ,nl6 ) 
ntry7  =  locat(ics,nl7) 

*  if  ( tnow, gt, 860)  write<8, ' (5x, ‘Point  1*)') 
if  (qset':ntry7+10)  .lt.111)  then 

do  7010  J2  *=  1,10 

qset(ntry3+.j2)  =  0 
7010  continue 

write<8, ' (5x,a5,2x, i2, *  radar  missile  went  ballistic,  *, 

1  ’target  ,,a5»2x,i4,‘  already  dead,  Time:  ‘  ,f 12.2) " )csl , 

2  il ,cs2, ics,tnow 
return 

endif 

if  (qset(ntry2+9) .It, 2. 5)  then 
do  7008  J2  =  1,10 

qset(ntry3+,j2)  =  0 
7008  continue 

write(8, ‘ (5x,a5,2x, i3, *  radar  missile  went  ballistic,  *, 

1  'lost  radar  lock,  Time:  * »f 12,2) ' )csl , il , tnow 

return 
endif 

* 

*  The  pointer  to  the  target  aircraft's  position 

*  is  located. 

% 

do  7032  .j2  =  1,3 

vbl(J2)  =  qset<ntry3+,j2) 
vb2(J2)  =  qset(ntry3+3+J2> 
vrl(.j2)  =  qset(ntry6+,j2) 
vr2(J2)  =  qset(ntry6+3+J2) 

7032  continue 

*  if  (tnow. gt. 860)  write(8, ' (5x, ‘Point  2*)') 

* 

* 

*  The  positional  and  velocity  vectors  of  the 

%  aircraft  and  missile  are  looded  into 

*  scratch  arrays. 

* 

call  los(vbl,vrl ,f los,xmag ,phi 1 ) 
call  los(vrl ,vbl ,tlos,xmag,phi2) 

* 

%  The  lines  of  sight  (LOS)  are  calculated. 

*  *  1  os ‘  returns  a  unit  vector  oriented 

*  along  the  LOS,  its  magnitude,  and  its 

*  depression  or  elevation  above  the 

*  horizon. 

* 

vel  =  qset(ntry3+7) 

*  if  ( <db(5) > .and. (tnow. gt. 860) ) 

+  wnte(8. '  (5x, ‘Speed  is  ‘,f8.3,‘  feet/sec  ‘  > ' )  vel 
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*  The  missile  velocity  is  extracted. 

call  cross(tlos,vr2»vr3,uvecl ) 
call  cross (uvecl , tlos,vr3,uvecl > 
call  dot( vr2,tlos,dprod ,  c » theta ) 

*  if  ( tnow -gt .860)  write(8, ' (5x, 'Point  3*)') 

* 

*  'cross*  and  'dot*  are  vector  manipulation 

*  subroutines  which  return  vector  and 

*  scalar  products  of *two  vectors. 

* 

tcomp  =  abs(sin(thetu) )#qset(ntry6+7) 
rcomp  =  sqrt(qset(ntry3+7)##2-tcomp**2) 

* 

*  'tcomp*  and  'rcomp'  are  the  tangential  Qnd  radial 

*  components  of  the  aircraft's  velocity  relative 

*  to  its  line  of  sight  to  the  missile. 

* 

do  6034  J2  =  1,3 

uvecl(.;2)  =  uvec  1  ( .j  2 )  *tcomp 
flos(.j2)  =  f  los  (,j2)#rcomp 
vb2(.j2)  =  uvecl  <  J2)tflos( ,j2) 

6034  continue 

*  if  (tnow. gt. 860)  write(8, ' (5x, 'Point  4')') 

* 

# 

*  The  missile's  velocity  is  decomposed  along  the 

*  LOS  and  then  the  components  are  added  to  give 

*  the  intercept  vector. 

» 

call  unit(vb2,vb2) 
do  36  ,j2  =  1,3 

qset(ntry3+3+.j2)  =  vb2(J2) 

qset(ntry3+.j2)  =  qset(ntry3+.j2)+qset(ntry3+3+.j2)*dtnow* 
#  qset(ntryo+7) 

vbl(.j2)  =  qset(ntry3+,j2) 

36  continue 

call  los(vbl ,vrl ,f los,xmag,phi ) 
qset(ntry3+8)  =  qset(ntry3+8)-dtnow 
if  (qset(ntry3+8) .lt.O)  then 
do  48  J2  =  1,10 
qset  (ntry3+.j2)  =  0 
48  continue 

go  to  50 
endif 

* 

*  The  missile's  Time  of  Flight  <T0F)  is 

*  decremented. 

* 

comp  =  qset(ntry3  +  10)-::mag 

♦  if  (tnow. gt. 860)  writei'8, '  (5x, 'Point  5')') 

* 

*  The  missile's  range  is  compared  with  the 

*  previous  range.  If  it  is  greater  the 
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\  *  missile  has  reached  its  point  of 

*  closest  approach  to  the  target. 

* 

if  (coup. It. 0)  then 
do  40  . j  2  =  1,10 

qset(ntry3+.j2)  =  0 
40  continue 

pk  =  .75 

if  <n4.eq.8>  pK  =  .5 

if  ( (abs (th'eta)  .gt.  1 .04712)  .and.  ( abs( theta ) .  ]  t  .2.09424 ) ) 

+  then 

pk  =  ,5 

if  <n4.eq.8)  pk  =  .15 
endif 

*  if  (tnow.gt.860)  wri te ( 8 , '  ( 5;< ,  'Point  6')') 

if  ( (n4 .eq .8) .and . (asin (qset (ntryl+6) ) .gt . . 17365) )  pk  =  0 

* 

*  A  probability  of  Kill  (pk)  is  assigned 

*  based  on  the  relationship  of  the  the 

*  missile  to  the  target  at  time  of  closest 

*  approach. 

* 

#  if  <tnow.gt.S60)  write(8» ' (5x, "Point  7*)/) 

comp  =  unf  rm ( 0 . , 1 . ,9) 
if  (comp . It . pk )  then 
if  (n4.eq.3)  then 

if  ( ivthrt( il ) .eq.ics)  then 
ivthrt(il)  =  0 
vthrt(il)  =  999999 
endif 

nthrt(il)  =  0 
ntrr( ics)  =0 
qset ( ntry7+10 )  =  102 
qset(ntry7+9>  =  0 
qset(ntry7+8)  =tnow 
do  7052  J  2  =  1,11 
thrt  (il  ,.j2)  =  999999 
ithrt(  il  ,.J2)  =  0 
thtrr(ics,.J2)  =  999999 
itrr(  ics,,j2)  =  0 
7052  continue 

n8  =  locat(il,2) 
if  (qset(n8+l ) .gt.O)  then 
n5  =  qset(n8+l ) 
n6  =  locat(n5,l ) 
n7  =  locat(n5,2) 
qset(n7+l)  =  0 
qset(n7+6)  =  1 
endif 

qset(ntry2+9)  =  0 
endif 

$  if  ( tnow.gt.860)  write(8» ' <5x, ’Point  9’)') 

if  (n4.eq.8)  then 
ntrr(il)  =  0 
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do  7054  ,j2  =  1,11 
itrr(il,.J2>  =  999999 
thtrr<il,J2)  =  0 
7054  continue 

n8  =  locat(il,7) 
if  (qset(n8+l ) ,gt.0>  then 
n5  =  qset(n8+l) 
n6  =  loco.t(n5,6> 
n7  =  locot(n5,7) 
qset(n7+l)  =  0 
qset(n7+6)  =  1 
endif 

qset(ntry2+9)  =  0 
qset(ntry7+10>  =  102 
qset(ntry7+9)  =0 
qset(ntry7+8)  =  tnow 
endif 

do  38  . j  2  =1,10 

qset  <ntry3+,j2)  =  0 
38  continue 

* 

*  A  random  number  is  drawn  and  compared  against 

*  the  pK  value.  If  the  pK  is  larger,  the 

%  aircraft  is  considered  a  loss. 

*  The  missile  information  is  cleared  from 

*  file  3  and  the  aircraft  is  given 

*  a  mission  code  reflecting  its 

*  being  shot  down  by  a  radar  missile. 

* 

if  (db<5) ) 

+  write(8, ' <5x,a5,2x, i3, '  shot  down  by  radar  missile,  ’ 

+  'coord  N' , f 12 .2, * ,  E*,fl2.2,'  Time:  • ,f 12.2) ' >cs2, ics, 

+  qset(ntry6+J ) »qset<ntry6+2) ,tnow 

if  (nll.eq.l)  then 
>:x(4)  =  x>:  ( 4 )  +  1 
x>:(7)  =  >:x  (7)  +  1 
n5  =  qset(ntry7+l ) 
if  (nS.gt.O)  then 
n7  =  locat(n5,nl7) 
qset(n7+6)  =  1 
qset(n7+l)  =  0 
endif 
else 

n5  =  qset(ntry7+l ) 
if  (nS.gt.O)  then 
n7  =  nsucr(ntry7> 
qset(n7+6)  =  1 
qset(n7+l)  =  0 
endif 

xx<3)  =  xx (3)  +  1 
xx ( 5 )  =  xx (5)  +  1 

endif 

else 

do  42  ,j2  =  1,10 
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qset(ntry3+.j2)  =  0 
42  continue 

if  <db<5>) 

+  write(8» ' <5x»o5?2x» i4»  *  survived  radar  mssile  from  * 

+  a5,2x,i3,*  Time  * , f 12.2) ' )cs2,ics,csl , il , tnow 

endif 
else 

*  if  (tnow. gt. 850)  write(B, ' <5x, ’Point  10*)') 

qset(ntry3+lQ)  =  xmag 
endif 

*  if  (tnow. gt. 850)  write<8» ' <5x, ‘Point  11*)') 

50  return 

end 


158 


subroutine  c*p80(il fn2,n3,n4) 

♦  The  duBiuiy  variables  represent  the  following? 

* 

*  il?  aircraft  callsign 

*  n2!  mission  code  derivative 

*  n3!  wingman's  call  sign 

*  n4?  blue/red  file  pointer 

* 

comnon/scoml/atrib  ^100),dd(100),ddl(100) ,dtnow» ii ,»fa,nistop ,nclnr , 
lncrdr ,nprint, nn run, nn set ,n tape, ss  ( 100)  ,ssl  ( 100)  , tnext,tnow,xx(  100) 
common  qset( 15000) 

coffiBion/ucoml/nsectr (6) , neap <3 )  , nb  ,nr ,  ithrt (24,  1 1 )  ,thrt  (24, 11 ) , 
+nthrt(24),vthrt(24),ivthrt(24),blue(3> ,redb(3,3), 
+itrr(80,ll),thtrr(80,ll),ntrr(80),vtrr(80), 

+ivtrr(80) 
comoion/ucoii2/db(20) 
logical  db(20) 
dimension  vecl (3) ,flos(3) , 

1  vbl(3),vb2(3),vrl(3),vr2(3),a(10) 
if  (db<  10) )  write(8,'(5x,*Cmp80,  Time  1  ,f9.2> ' >tnow 

8000  ntry6  =  locat(il,6) 
ntry7  =  locat(il,7) 

if  ( < ivtrr < i 1 ) .gt .0 ) .and . (qset (ntry7+4) .gt .0 ) )  then 
nlO  =  ivtrr(il) 
nil  =  locat(nlO,l) 
do  8004  .jl  =  1,3 

vrl(.jl)  =  qset(ntry6+.jl ) 
vr2(.jl)  =  qset(ntry6+3tjl ) 
vbl(.jl)  =  qset(nll+,jl ) 
vb2(.jl)  =  qset(nll+3+,jl) 

8004  continue 

call  los(vrl , vbl  ,  f los,xmag ,phi  ) 
if  (xmag.gt.5000)  go  to  8008 
call  dot(flos,vb2,dprod,c, theta) 
if  (abs(theta) *gt. (30,/57*3) )  go  to  8008 
call  dot (vr2, flos,dprad ,c , theta ) 
if  (abs(theta) .It, (30./57.3) )  then 
qset (ntry7+4)  =  qset(ntry7+4 )  -  1 
do  8006  . j  1  =  1,3 

a(Jl)  =  qset(ntry6+.jl ) 
a(.jl+3)  =  qset(ntry6+3+.jl ) 

8006  continue 

a(7)  =  qset(ntry6+7) 
o(8)  =  22 
a(9)  =  ivtrr(il) 
a  (10)  =  xmag 
call  filesi(9,a) 

write(B, ' (5x, 'Red  *,i3,'  launched  heatseeKer  at  Blue  ',j2, 

+  *,  Time  ’  ,f9.2) ' ) il » ivt rr ( il ) , tnow 

xx  (14)  =  xx (14)  +  1 
ivtrr( il )  =0 
vtrrdl)  =  999999 
endi  f 
endif 
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8008  nl  *  qset(ntry7+8) 
nrl  *  1 

if  (nl.eq.3)  nrl  =  2 
if  (nl.eq.5)  nrl  =  3 
n2  =  qset(ntry7+9) 
ntrylO  =  locat(n2,10) 
vrl(l)  =  qset(ntry6+l ) 
vrl(2)  =  qset(ntry6+2) 
vrl (3)  =  0 

vecl(l)  =  qset(ntrylO+nl ) 
vecl(2)  =  qset(ntrylO+nltl ) 
vecl(3)  =  0 

call  los(vrl,vecl,flos,rng,phi) 
if  (rng.le.3000)  then 
if  ( i  l.eq.l ) 

+  wnte(8, '  <5>;, 'Waypoint  '»i2,',  Route  #  *,i2,',  Red  ',i  A, 

+  *,  Ti»el  ' »f8.2) ' >n2,n rl » il , tnow 

if  (il.eq.l) 

+  write(8, ' (5x, 'Range  to  Waypoint  * ,  i2, 2>:»f9.2» '  ft. ' ) ' )n2, rng 
if  (il.eq.l) 

+  write<8, '  (5x,  *Ftr  pos!  * ,3( *X( il ,' )J' ,fl 1 ,2,2k >>' ) 

+  <.j2,qset(ntry6+.j2)  ,.j2=l  ,3) 
if  (il.eq.l ) 

+  wnte(8,  '  <5x, 'Waypt  Pos:  ' , 3 ( 'X< ' ,  1 1 ,  * ) : '  ,f  1 1 . 2,  ?>: >  >  '  ) 

+  (j2,vecl(.j2),.j2=l,3) 

qset(ntry/+9)  *  qset  (ntry7+9)+l 
ntrylO  *  nsuc r ( nt ry 10 > 
if  (qset(ntr>  104-nl  >  .eq.999)  then 
write(8»  '  (5x»  'Red  ',i4,'  landed  ot  TiHieJ  ' ,  f  8 . 2 ) '  )  1 1 ,  tnow 
qset (ntry7+10 )  =  100 
qset ( ntry7+9 )  =  tnow 

end  if 
return 
endif 

do  8010  .jl  «  1,3 

vrl  ( ,jl )  =  qset(ntry6+3+,jl ) 

1010  continue 

call  dot(vrl ,f n?,dprod,c , theta ) 
if  (theta. gt. <r  . /57.3) ) 

+  call  turn ( vr  .  . f los , 2 .0 ,ntry6 ,dtnow,qset ( ntry647 ) ) 
return 


subroutine  cmp90( i 1 ,n2,n3»n4 ) 

*  The  dually  variables  represent  the  following: 

* 

*  ilt  aircraft  callsign 

*  n2 J  mission  code  derivative 

*  n3:  wingman's  call  sign 

*  n4t  blue/red  file  pointer 

* 

comnon/scoml/ntribnOO)  ,dd(100)  ,ddl(100)  .dtnow, ii  ,mfa,m?ton,nclnr, 
lncrdr,nprint,nnrun,nnset,ntape,ss( 100)  ,ssl  ( 100)  ,tne>:t,tnow,>:>;(  100) 
common  qset(  15000) 

common/ucoml/nsectr (6)  »ncap  (3)  ,nb,nr , i thrt<24, 11 ) , thrt (24,  11 ) , 
+nthrt<24) »vthrt(24) , ivthrt(24) ,blue(3) , redb(3, 3) , 
+itrr(80,li),thtrr(80,ll),ntrr(80)»vtrr(80)» 
tivtrr (80) 
common/uco»2/db (20) 
logical  db(20) 

dimension  vecl (3) , vec2(3) ,uvecl(3) 

if  (db  ( 10) )  write(8,/(5>:,,Cinp90,  Time  *  ,f9.2> '  )tnow 

* 

9000  do  9010  .jl  =  1,3 

vecl(jl)  =  qset(ntryl+,jl ) 
vec2(.jl)  =  qset(ntryl+3+.jl ) 

9010  continue 


* 

*  Establish  the  line  of  sight  between  the 

*  aircraft  and  the  base, 

* 

call  1 os (vecl ,blue,uvecl , rng»phi  ) 
if  (rnq.lt. 3000)  then 
qset (ntry2+10)  =  105 

write(8, '  (5;<»  *Flue  *,i2,*  landed  at  Time!  1 »f8«2) ' ) i 1 ,tnow 
endif 

qset(ntryl+9)  =  700 

if  (rng.le. 60000)  qset(ntryl+9)  =  585 

* 

*  ChecK  airspeed  to  see  if  it  is 

*  the  desired  airspeed. 

* 

dlas  =  qset(ntryl+9)-qset(ntryl+7) 
if  (abs(dlas) . It. 5)  then 

qset(ntryl+9)  =  qset(ntryl+7) 

else 

accel  =  5 

if  (dlas. It. 0)  accel  =  -5 
qset(ntryl+7)  =  qset(ntryl-f7)+accel 
endif 

if  (phi . le.atan ( 1 ,/12. ) )  then 

if  (qset(ntry2+9) ,gt. 1 .5)  go  to  9020 

* 

*  Decide  whether  to  level  off  or  climb. 

# 

qset(ntry 1+10 )  =  min(-20000,qset(ntrvl+3) ) 
delta  =  qset(ntryl+10)-qset(ntryl+3) 
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uvecl(3)  =  0 

9020  if  ■'  (abs(delto)  .le.200)  .and*  <qset(ntryl+6)  .ge. 

+  (-16.7/qset(ntryl+7) ) ) )  then 

qset(ntry2+9)  =  2 
call  unit(uvecl ,uvecl ) 
do  9012  .jl  =  1,3 

qset(ntryl+3+.jl )  =  uvecl(jl) 

9012  continue 
return 
else 

If  the  aircraft  is  not  pointed  within 
a  few  degrees  of  hone,  turn  hie. 

call  turn (vec2»uvecl ,2.5»ntryl , dtnow,qset (ntryl+7) ) 
return 
endif 

call  dot(vec2,uvecl,dprod,c » theta) 
if  (abs(theta) .le. 0.01745)  then 
do  9014  ,jl  =  1,3 

qset(ntryl+3+,jl )  =  uvecl(.jl) 

9014  continue 
else 

call  turn (vec2,uvecl ,2.0, ntryl ,dtnow,qset (ntry 1+7) ) 
endif 
endif 
return 


subroutine  cmpl00(il ,n2,n3,n4> 

*  The  dummy  varioDles  represent  the  following: 

* 

*  ii:  aircraft  callsign 

*  n2:  mission  code  derivative 

*  n35  wingman's  call  sign 

*  n4:  blue/red  file  pointer 

* 

*t****t*tt*****t*t*tt***t*********************************************** 


*  * 

*  This  section  runs  Blue  intercepts  and  * 

*  executes  Blue  tactics.  # 

*  * 


*> tmmmmm*mmmmmmmm*******m****m***m******* 

common/scoml/atrib  <  100) ,dd ( 100) ,ddl ( 100) ,  dtnow, ii  , mfa,mstop ,nclnr , 
lncrdr ,nprint,nnrun,nnset ,ntape , ss (  100) , ssl ( 100)  ,  tnext , tnow,x>;(  100) 
common  qset( 15000) 

common /ucoml/nsectr (6) »ncap (3) , nb ,nr, ithrt (24, 11 ) ,thrt(24  f 11 ) f 
+nthrt(24) ,vthrt(24) , ivthrt(24) , blue (3) , redb(3,3) r 
+itrr(80,ll),thtrr(80,ll)»ntrr(80),vtrr(80), 
fivtrr (80) 
common/ucom2/db (20) 
logical  db(20) 
character  cs3#6 

dimension  vec (3) , vecl (3) ,vec2(3) ,uvec (3) , f los(3) , 

>»vbl  (3)rv  b  2 ( 3  >  , vrl(3) ,vr2(3) »a( 10 ) 

if  (db( 10) )  write(8,'(5>:,*Cmpl00,  Time  * , f9,2) ' )tnow 

* 

ntryl  =  locat(il,l) 
ntry2  =  locat(il,2) 
if  ( ivth rt( il ) .gt.0)  then 
n6  =  locat(ivthrt(il >»7) 
if  (qset (n6+10) . It. 1 11 )  then 
ivthrt(il)  =  0 
vthrt(il)  =  999999 
go  to  150 
endif 

* 

* 

*  If  the  visually  detected  target  is  also 

*  a  radar  contact  to  which  the  pilot  is 

*  locked  up,  the  visual  routine  ignores 

*  it. 

* 

if  (qset(ntry2+9) .gt.l  .5)  then 

if  ( ivthrt< il ) .eq . ithrt ( il , 1 1 ) )  then 
if  (db(5) ) 

+  write(8, '  (5>:»  ’Blue  ',i3,'  has  tally-ho  on  Red  *,i3, 

+  *  (tgt  of  intcp)  at  Time  *  ,f9.2) '  ),jl ,  ivthrt(  1 1 ) ,  tnow 

go  to  150 
endif 
endif 

if  ( (qset(ntry2+9) .gt . 1 .5) .and . ( vthrtf l 1) .qt . 18000 > )  qo  to  10000 
if  (db (5) ) 


+  write<8, '  <5x,  ‘Blue  *,i3,*  has  tally-ho  on  Red  at  Time 

+  ,f9.2) ' ) il , ivthrt(il ) ,tnow 

ntry6  =  locat(ivthrt(il )  ,6) 
do  112  .jl  =  1,3 

vbl(jl)=  qset(ntryl+jt ) 
vb2(.jl)  =  qset(ntryl+3+.jl ) 
vrl(.jl)  =  qset<ntry6+.jl  > 
vr2<jl)  =  qset<ntry6+3+,jl ) 

112  continue 

« 

* 

*  If  the  pilot  is  reacting  to  a  visual 

*  threat  he  tries  to  turn  hard  and 

*  point  at  hie  in  order  to  use  his 
t  weapons. 

* 

* 

* 

call  los(vrl,vbl,tlos,>;i»iag>phi) 
call  dot(vr2,tlos,dprod»c » theta) 
if  (abs< theta) .ge. .52356)  go  to  150 
n5  =  qset(ntry2+l ) 
if  (nS.gt.O)  then 
n 7  =  locat(n5,2) 
qset(n7+l)  =  0 
qset(n7+6)  =  1 
endif 

qset(ntry2+l )  =  0 
qset(ntry2+6)  =  1 
qset(ntry2+7)  =  xmag 
n2  =  11 

qset(ntry2+10)  =  121 
qset(ntry2+9)  -  4 
if  (db (5) ) 

+  write<8, '  <5x,  ’Blue  *,i3,*  reacting  visually  to  * 

+  ’Red  * , i2, " »  Time  •  ,f9.2> ' ) il , ivthrt(  il) »  tnow 
call  c mp 1 1 0 < i 1 ,n2,n3,n4) 
return 
endif 

150  continue 

*  CmplOO  is  the  workhorse  of  this  program. 

*  It  runs  intercepts  and  fires  missiles. 

* 

*  If  the  aircraft  is  locked  on,  go  to  a 

*  different  section. 

* 

10000  continue 

if  <qset(ntry2+6) .eq .2)  go  to  10092 
if  <qset<ntry2t9) .gt. 1 .5)  go  to  10050 

* 

*  An  aircraft  which  has  lost  its  radar 

#  lock  either  through  the  target  being 

#  killed  or  some  other  occurance  has 

*  a  code  of  zero. 


10088  if  <qset<ntry2+9) .eq.O)  then 
if  (nthrt(il) .eq.O)  then 

ft 

ift  If  no  visual  nor  radar  targets.  check 
ft  for  an  e#pty  CAP  and  assign  fighter 

ft  to  it. 

ft 

do  10018  J1  =  1,3 

if  (ncap(.jl )  .eq  .0)  then 
qset  (ntry2+10*)  =  110+ jl 
qset(ntry2+9)  =  3 
n2  =  jl 

n3  =  qset(ntry2+l ) 
n4  =  0 

n5  *  qset(ntry2+l ) 
if  (nS.gt.O)  then 
n7  =  locat(n5.2) 
if  (qset(n7+9) .gt.1.5)  then 
qset(n7+l)  =  0 
qset(n7+6)  =  1 
else 

qset(n7+10)  =  110  +  jl 
qset(n7+9)  =  3 
endif 
endif 

call  cmplO( il »n2»n3,n4 ) 
return 
endif 

L0018  continue 

ft 

ft  Otherwise,  send  to  CAP  2. 

It 

qset(ntry2+10)  =  112 
qset(ntry2+9)  *  3 
n2  =  2 

n5  =  qset(ntry2+l ) 
if  (nS.gt.O)  then 
n7  *  locat(n5.2) 
if  (qset(n7+9) .gt.l .5)  then 
qset<n7+l)  =  0 
qset(n7+6)  =  1 
else 

qset (n7+10 )  =  110  +  jl 
qset<n7+9)  =  3 
endif 
endif 

call  c*ipl0(il.n2.n3.n4) 
return 
enoif 
endif 
It 

ft  If  coning  into  the  section  on  a  radar 
It  intercept,  sort  through  the  r<-^ar 
ft  contact  file  looking  for  targets. 


10150  ntl  =  nin(10,nthrt(il') 
do  10002  J1  =  1 » ntl 
ics  =  ithrt(il,jl) 
if  (ics.gt.o)  then 
ntry-6  =  locat(ics,6) 
ntry7  =  locat<ics,7) 
if  (qset(ntry7+10) . It. Ill)  go  to  1000 
if  <qset(ntry6i2) . le. 10389200)  then 
if  <qset(ntry2+10) .ne.120)  then 
qset(ntry2+10)  =  120 
qset (ntry2+9 )  =  1 
if  (qset(ntry2+6) .eq . 1 )  then 
ithrt(il»l)  =  ithrt(il,.jl> 
ithrt(ilfll)  =  ithrt(ilfjl) 
thrt(il,l)  =  thrt(il,Jl) 
thrt  ( il » 11 )  =  thrt(il,.jl) 
do  10030  J2  =  2,10 
thrt(il  ,.j2)  =  999999 
ithrt(il,J2)  =  0 
10030  continue 

nthrt(il)  =  1 

if  (qset(ntry2+l ) .ne.0)  then 
n6  =  qset(ntry2+l) 
n7  =  locat(n6,2) 
qset(n7+10)  =  120 
qset(n7+9)  =  1 
endif 
endif 
endif 

go  to  10004 
endif 
endif 

10002  continue 

* 

%  If  there  were  no  rador  contacts, 

*  go  bock  to  the  cap . 

* 

nthrt(il)  =  0 


do  10090  .j2  =  1,11 
thrt  (il  ,,j2>  =  999999 
ithrtCil  ,.J2)  =  0 
10090  continue 

qset(ntry2+9)  =0 
if  (qset(ntry2+l )  .ne.0)  then 


n6  =  qset(ntry2+l ) 
n7  =  iocat(n6,2) 
if  (qset(n7+9) , gt, 1 ,5)  then 
qset ( ntry2+l )  =  0 
qset(n7+l)  =  0 
qset(n7+6)  =  1 
go  to  10088 
endif 

qset(n7+9>  =  0 


go  to  10088 

10092  n5  =  qset(ntry2+l> 
n6  =  locat(n5,l) 
n7  =  locat(n5,2) 
if  (qset(ntry2+6) .eq.2)  then 

delto  =  qset(ntryl-HO)  -  qset(ntryl+3) 
if  (abs(delta) . It. 500)  then 
do  10100  J2  =  1,3 

qset  <ntryl+3+.j2)  =  qset(n6+3+.j2) 

10100  continue 

go  to  10004 
endif 

phi  =  30./57.3 
theto  =  20./57.3 

if  (qset (n7+8) . lt.O)  phi  =  -30./57.3 

if  (delta.lt. 0)  theto  =  -20./57.3 

vb2(l)  =  qset(n6+4)Ccos(phi )+qset(n6+5)Csin(phi ) 

vb2(2)  =  qset(n6+4) C(-cos(theto  )  )Csin (phi ) 

+  +qset(n6+5) Ceos (theta) Ceos (phi) 

+  +qset(n6+6)Ccos(theto> 

vb2(3)  =  qset(n6+4)Csin (theta) Csm (phi ) 
t  +q set (n6+5)C( -sin (theto) ) Ceos (phi ) 

+  +qset(n6+e)Ccos(theta) 

call  unit(vb2, vb2) 
do  10098  .j2  =  1,3 

qset(ntryl+3+.j2)  =  vb2(J2) 

10098  continue 
endif 

10004  if  (thrt(il,l).le. 90000)  then 

« 

C  If  the  range  to  a  target  is  less 
C  than  15  nautical  idles,  locK  on. 

C  This  also  cleans  out  the  rodar 

C  contact  file,  as  there  is  no 

C  radar  search  when  locked  on. 

* 

if  (qset(ntry2+6) .eq.l )  then 
C  if  (il.eq.l) 

C  +  write(8, '  (5>:, ’Blue  1  locking  on  to  Red  ’,i2,’,  Rang 

It  +  f5,l,’  NM,  Time  ’  ,f9.2) ' ) ics, ithrt ( i  1 , 1  )/6000. , tnow 

qset(ntry2+9)  =  2 
go  to  10050 
endif 

if  (qset(ntry2+6) .eq .2)  then 
n5  =  qset(ntry2tl ) 
n6  =  locat(n5»l ) 
n7  =  locat(n5,2) 

if ( ( ithrt( il , 1 ) .eq . ithrt(n5* 1 1 ) ) .and . 

+  (qset(n7+9> .gt.1.5))  then 

if  (nthrt(il) .It. 2)  return 
if  ( thrt< l 1 ,2) .gt .90000 )  return 
ithrt(il,ll)  =  ithrt(il,2> 
thrt(il.ll)  =  thrt( i 1 ,2) 


itbrt(il,l)  =  ithrt(il,2> 
thrt(il,l)  =  thrt(il,2> 
qset(n7+l)  =  0 
qset(ntry2+l)  =  0 
qset<ntry2+6)  =  1 
qset(ntry2+9)  =  2 
qset(ntry2+10)  =  120 
go  to  10050 
endif 

if  < (n5.gt.0) .and. <qset<n7+9) .gt.l .5) )  then 
qset(ntry2+6)  =  1 
qset(ntry2+l )  =  0 
qset  (ntry2<-9)  =  2 
qset(ntry2+10)  =  120 
qset(r7+6)  =  1 
qset(n7+l)  =  0 
endif 

if  ( (nS.gt.O) .and. <qset<n7+9> .lt.l .5) )  then 
qset<n7+l)  =  il 
qset(n7+6)  =  2 
qset(n7+9)  =  1 
qset(n7+10)  =  120 
qset(ntry2+6)  =  1 
qset (ntry2+9 )  =  2 
qset(ntry2+10)  =  120 
endif 
endif 
endif 

* 

*  Get  vectors  for  intercept  calculations. 

* 

10050  ics  =  ithrt( il *  11 ) 

if  <ithrt(il,2) .gt.0)  then 
do  10016  J2  =  2,10 
ithrt(  il  ,.j2)  =  0 
thrt(il,J2)  =  999999 

10016  continue 
endif 

if  (ics.le.0)  then 
qset(ntry2+9)  =  0 
do  10062  jl  =  1,11 
ithrt(il  ,.jl )  =  0 
thrt(  i  1  ,.jl  >  =  999999 

10062  continue 

nthrt(il)  =  0 
retu  rn 
endif 

ntry6  =  locat(ics»6) 
ntry7  =  locat(ics,7) 

* 

%  Decide  on  type  of  attack!  from  above  or  below. 
cs3  =  'below' 

qset(ntrylflO)  =  qset(ntry6+3)+5000 


if  <qset<ntry6+3) .gt.-7000>  then 
qset(ntrylflO)  =  qset(ntry6+3)-8000 
cs3  =  'above' 
endif 

*  if  (il.eq.l) 

*  +  write<8, '  <5x,  'Target  Red  *,i2,',  altitude  ',f9.2,*  ft.*, 

*  +  *  Attack  will  be  fro*  * ,a5, '. VlOx , 'Attack  altitude  *,f9.2, 

*  +  *  ft. * ) ' )ics,-qset(ntry6+3) ,cs3,-qset(ntryl+10) 

n5  =  qset(ntry2+l ) ^ 

if  < (nS.gt.O) .and . (qset(ntry2+6) .eq.2) )  then 
n6  =  locat(n5,l) 

qset(n6+10)  =  qset(ntryl+l 0)  +  2000 

if  (qset(ntry6+3) .gt.-9000)  qset(n6+10)  =  qset(ntrylflO)  -  5000 
endif 

* 

♦  Check  to  see  if  the  target  you  are 

*  locked  on  to  is  dead.  (Your  missile 

#  or  someone  else's  may  have  Killed 

*  him.) 

# 

if  (qset (ntry7+10) . It . 1 1 1 )  then 
qset(ntry2+9)  =  0 
do  1006 6  .jl  =  1,11 
ithrtCil  ,.jl )  =  0 
thrt(il,.jl)  =  999999 
10066  continue 
return 
endif 

do  10006  jl  =  1,3 

vecl(jl)  =  qset(ntryl+jl ) 
vec2(jl)  =  qset(ntry6+.jl ) 

10006  continue 

call  los(vec  1 , vec2,f los, xmag ,phi ) 

*  if  (il.eq.l) 

*  +  write<8, '  (5>:,  ’Blue  1  intercepting  Red  ',i2,*,  Range  'rf7.2» 

%  +  •  NM,  Time  *,f9.2) ' ) ics,xmag/6000. ,tnow 

rngint  =  xmag 
thrt(il,l)  =  xmag 
thrt(il,ll)  =  xmag 
do  10008  .jl  =  1,3 
tlos(.jl)  =  -flos(.jl) 

10008  continue 

* 

*  INTERCEPT  COURSE  Section 

* 

# 

#  Set  desired  airspeed  at  1.2  *  target's  for 

#  intercept. 

# 

qset(ntryl+9)  =  nun ( 1000, 1 ,2*aset<ntr>6+7) ) 
do  10010  .jl  =  1,3 

vecl(.jl)  =  qset(ntryi  +  34,ji ) 
vec2(.jl>  =  qset(ntry6  +  3+jl ) 

10010  continue 
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*  The  intercept  course  is  computed  in  the  some 

*  manner  os  in  the  missile  section.  The  target's 

*  velocity  is  decomposed  into  two  components, 

*  one  along  the  line  of  sight  from  the  fighter  to 

*  the  target  and  the  other  perpendicular  to  the 

*  LOS  and  in  the  plane  of  the  target's  velocity 

*  and  the  LOS.  The  Cighter's  velocity  is  then 

*  decomposed  in  the  same  manner*  matching  the 

*  perpendicular  component  of  the  target  and 

*  applying  the  rest  along  the  line  of  sight. 

*  The  resultant  vector  is  the  vector  from  the 

*  fighter's  position  to  the  intercept  point. 

* 

call  cross(tlos,vec2* vec ,uvec ) 
call  cross(uvec,tlos-,vec,uvec ) 
call  dot<vec2* tloSf dprod  *c  *  theta ) 
tcomp  =  abs(sin (theta) )*qset(ntry6+7) 
tgtrdl  =  abs(cos(theta) )#qset(ntry6+7) 
rcomp  =  sqrt(qset(ntryl+7)*#2-tcomp#*2) 
xmag  =  0 
tmag  =  0 

do  10012  .j  1  =  1,3 

uvec(,jl>  =  uvec  (,jl  )#tcomp 
f  los(jl)  =  f  los(jl  )#rconp 
fvec(.jl)  =  uvec  (.jl  )+f  los(  jl ) 
xmag  =  xraag+f  vec  ( .jl )  #fvec  < .j  1 ) 
tmag  =  tmag  +  flos(.jl)  *  flos(.jl) 

10012  continue 

xmag  =  sqrt(xmag) 

tmag  =  sqrt(tmag) 

tintcp  =  rngint/(tmag  +  tgtrdl) 

do  10014  jl  =  1,3 

fvec(.jl)  =  f vec  (.jl ) /xmag 
uvec(.jl)  =  fvec  (.jl) 

10014  continue 

if  < rngint. lt.4B000)  go  to  10020 
delta  =  qset(ntrylflO)  -  qset(ntryl+3) 
if  (abs(delta) . It. 500)  then 
fvec (3)  =  0 
call  unit(fvec,fvec ) 
go  to  10020 
endif 

clmb  =  30./57.3 

if  (delta. It. 0)  clmb  =  -30./57.3 
fvec(3)  =  fvec(3)  +  clmb 
call  unit (fvec , fvec ) 

10020  continue 

do  10052  .jl  =  1,3 

vbl(.jl)  =  qset(ntry1  t.jl  ) 
vb 2 <  j  1 )  =  qset(ntryl+3+.jl ) 
vrl(.jl)  =  qset(ntry£  +  ,jl ) 
vr2(.jl)  =  qset  (  ntry6+3+jl ) 


10052  continue 

* 

*  Check  to  see  if  any  of  the  tactical 

*  ranges  of  the  tiissiles  have  been 

*  net. 

* 

call  los(vhl ,vrl  ,  flos,xf*ag  » p  h  i  1 ) 
call  los(vrl,vbl,tlos,xinag,phi2) 
call  dot(  vb2,f  los,<iprod  ,c  ,thetal ) 
call  dot(vr2,f los,dprod,c  »theta2 ) 
r»a>:  =  12000+42000*sin(abs(theta2)/3. > 
r*iin  =  3000+l2000ksin(abs(thetn2)/3. ) 

hteax  =  6000+18000ksin(abs(theta?>/3)+qset(ntry6+3)/4. 

htnin  =  1000+5000*sin (abs(theta2)/3. )+5*(qset<ntry6+3)/1000. )**2 

*  if  < i 1 . eq . 1 > 

*  +  write<8, ' (5x, 'Missile  Employment  Ranges  are!  '/10x, 

*  t  'Radar  Missiles!  Max  Rangel  *»f?.2,'  ft,  Min  Range*.  ', 

k  +  f9.2) '  )rmax,  rmin 

*  if  (il.eq.l) 

*  +  write(8, ' (10x» 'Heat  Missiles!  Max  Ronge!  ',f9.2,‘  ft'r 

*  +  *  Min  Range!  *  ,f9.2) '  )ht»iax,htmin 

if  (qset(ntry2+9) .gt.2.5)  then 
It  if  (il.eq.l) 

It  +  write(8, '  <5x,  "Intercept  Calculations;  Ftr  Blue  1,  * , 

It  +  *Tgt  Red  ',i2,‘,  Intcpt  in  *,f7.2,'  seconds. ')') 

+•  +  ics,tintcp 

k  if  (il.eq.l) 

It  +  write<8, '  <5x,*Ftr  Speed  *,f7.2,'  fps,  Tgt  Speed  *,f7.2, 
k  +  '  fps. ' ) ' )qset<ntryl+7) ,qset(ntry6+7) 

k  if  (il.eq.l) 

It  +  write(8,'(5x,'Ftr  posJ  '  ,3<  *X< ' ,  1 1 ,  * ) ! ' , f 11 .2, 2x >/9x, ' Vel !  ' 

%  +  3('X(Ml,');',f9.4f4x))/) 

It  +  (J2,qset(ntryl+.j2) , J  2=  1 ,3) ,  (J2,qset (ntryl+3+.j2) ,  .j2=l  ,3) 

It  if  (il.eq.l) 

It  +  write(8, '  (5x,  *Tgt  pos:  •  ,3<  'X< ' ,  ll , ' )  J '  ,f  1 1 .2,2x)/9x, '  Vei :  ' 

I  +  3(  'X(  * , ll ,  * )!'  ,f9.4,4x) )')  <.j2»v rl  (.j 2)  ».j2=l  ,3) , 

k  +  <  J2,vr2(,j2)  ,.j2=l  ,3) 

k  if  (il.eq.l) 

k  +  urite(8,'(5x,'Ftr  LOSJ  • , <3(  'X( ■ ,il , ' ) ! ' ,f9.4,4x> )/ 

k  +  5x,  'Int  vecJ  •  ,3(  *X( '  ,il  ,  • )  J  •  ,f9.4,4x  ) ) ' ) 

k  +  (.j2,flos(j2>,.j2=l,3>,(J2,uvec(.j?>,.j2=l,3) 

rtheta  =  atan(qset(ntrylt7)/(2.5lt32.2)  » 
if  (abs(thetal ) .gt.abs(rtheta) )  then 

call  turn(vb2,flos,2.5»ntryirdtnow,qset(ntryl+7) ) 
else 

do  10064  ,jl  =  1,3 

qset(ntryt+3+,jl )  =  flos(.jl) 

10064  continue 

endif 

ntry3  =  locat(il,3) 

if  (qset(nt-ry3+B) .  le.0)  qset ( ntry 2+9 )  =  2 
return 


If  range  to  target  is  within  missile 
range*  select  a  weapon  and  launch. 

if  ( (xmag .  le.htmax)  .and .  (xmag . ge.htmin ) )  then 
if  (il.eq.l) 

■f  write(8* '  (5>:r  ‘Within  IR  Range*  tgt  must  be  within  20  ** 

+  ’degrees  of  nose. ’/10x, ’Target  bears  *,f5.1*’  degrees  off’* 

+  *  nose. * ) ' )thetal*57.3 

if  ( (abs(thetal) .It. .26178) .and. (qset(ntry2+4) .gt.O) )  then 
qset(ntry2+4)  =  qset(ntry2+4)-l 
qset(ntry2+9)  =  0 
do  10068  jl  =  1*11 
ithrt(il*.jl)  =  0 
thrt<  1 1  ,.jl )  =  999999 
8  continue 

nthrt(il)  =  0 

Load  the  missile  into  the  missile  file. 

do  10054  .j  1=  1,3 

a(jl)  =  qset(ntryl+jl ) 
o ( . j  1 + 3 )  =  qset(ntryl+3+,jl ) 

4  continue 

a(7)  =  qset(ntryl+7)+1000 
0(8)  =  43 
a (9)  =  ics 
a  (10)  =  >;mag 
call  filem(4*a) 

write(8, ' (5x* ’Blue  ’*i2*’  launched  heatseeKer  at  Red  ’* 

1  i3*’*  Range  ’,fl0.2,’,  Time.’  ’  *f3. 2) ' )  i  1  *  ics*>:mag  *  tnow 

>:>:  (12)  =  xx  (12)  +  1 
return 
endif 

rtheta  =  atan(qset(ntryl+7)/(5.0#32.2) ) 
if  (abs( thetal ) »gt. abs( rtheta ) )  then 

call  turn(vh2*f los*5.0*ntryi f dtnow*qset (ntryl+7) ) 
else 

do  10070  jl  =  1,3 

qset(ntryl+3+jl )  =  flos(.jl) 

0  continue 

endif 
return 
endif 

If  unable  to  fire  a  heat  missile  but  still  outside 
minimum  range  for  a  radar  missle,  select  radar. 

if  ( (xmag .ge. rmin ) .and. (xmaq . le. rmax) )  then 
if  (il.eq.l) 

+  write(8, ' (5x* ’Target  within  radar  range*  must  be  within  ’ 

+  ’40  degrees  of  nose. ’/10x* ’Tgt  bears  *,f5.1.’  degrees 

+  ’off  nose . ’ ) ' ) theta  1 <57 . 3 

if  ( (thetal .le. 0.52356) .and. (aset(ntry2+3) .gt.O) >  then 
qset,  (nt  rv2+3)  =  qset(ritry2+3)-l 


qset(ntry2+9)  =  3 
do  10058  J1  =  1,3 
o ( J 1 )  =  qset(ntryl+.jl ) 
o(.jl+3)  =  qset<ntryl+3+,jl ) 

8  continue 

o(7)  =  qset(ntryl+7)/2.+1000 
o(8)  =  90 
q(9)  =  ics 
o  ( 1 0 )  =  xmTg 
ntry3  =  locot(il,3) 
do  10060  jl  =1,10 
qset  (ntry3+jl )  =  o(.jl) 

0  continue 

write<8, ' <5x, ‘Blue  *,i2,'  lounched  radar  missile  it  ', 

1  ’Red  *  ,i3,  * ,  Range  ^flO .2,',  Timet  *  ,f8.2 ) ' )  il ,  ics 

2  >:»og,tnow 

>:>:<  11 )  =  >:>:  (11)  +  1 
return 
endif 
endif 

Once  the  intercept  vector  is  calculated,  turn 
the  fighter  toward  it. 

if  ( i 1  ,eq .  1 ) 

+  write(8, '  <5>:,  *  Intercept  Calculations!  Ftr  Blue  1,  ", 

+  ’Tgt  Red  ,,i2,*,  Intcpt  in  *,f7.2,’  seconds. *)') 

+  ics,tintcp 
if  ( i 1 .eq. 1 ) 

+  write(8, ' (5x, *Ftr  Speed  *,f7.2»*  fps,  Tgt  Speed  *,f7.2, 

+  *  fps.  * ) '  )qset(ntryl+7) ,qset(ntry6+7) 

if  (il.eq.1) 

+  write(8, '  <5x,  *Ftr  posJ  • , 3 ( ' X ( * , i  1 ,  * )  1  * , f  1 1 . 2 , 2:: ) /9:: ,  * Oel  5 
+  3(  ’X(  * ,  il ,  * )  { 1  ,f9.4,4>: ) ) ' ) 

,  <  J2,qset(ntryl+.j2)  ,.j2=l,3) ,  (.j2,qset(ntryl+3+.j2)  ,,j2=l  ,3) 

if  ( i 1  .eq . 1 ) 

+  write(8,'(5>:,*Tgt  post  •  ,3(  *X(  ■ , il ,  ■ )  5  •  ,f  11 .2, 2x)/9>:,  ‘Oel  t 

+  3(* X(* , il, •)!*,  f9. 4, 4x  >)')(. j2,vrl(.j2),.j2=  1,3) , 

+  (j2, vr2(.j2)  ,.j2=l  ,3) 

if  ( i 1 .eq . 1 ) 

+  write(8, ' (5x, *Ftr  LOS!  • ,  ( 3(  ’X(  • ,  il ,  * ) :  * ,  f 9. 4 , 4* ) ) / 

+  5x, * Int  vect  * , 3 ( ’ X ( * , i 1 , ’ ) J  * , f 9 . 4 , 4x ) ) ' ) 

+  <  ,j2»f los(.j2)  ,.j2=l  ,3) ,  <J2,uvec  (.j2) ,  J2=l,3) 

coll  dot ( vecl , f vec ,dprod,c , theta ) 
qset (ntry2+8 )  =  -1 
if  (theta. gt.O)  qset(ntry2+8)  =  1 
rtheta  =  atan(qset(ntryl+7)/ (3.5*32.2) ) 
if  ( rtheta . It .abs( theta ) )  then 

call  turn(vecl , fvec ,3 . 5,ntryl ,dtnow,qset (ntryl+7) ) 
else 

do  10152  ,jl  =  1,3 
qset(ntryl+3+.jl )  =  fvec(.jl) 

2  continue 
return 


subroutine  cmpl 10< il ,n2,n3 ?n4 ) 

#  The  dummy  variables  represent  the  following l 

* 

*  ill  aircraft  callsign 

*  n2i  mission  code  derivative 

*  n3!  wingman's  call  sign 

*  n45  blue/red  file  pointer 

* 

co»mon/scoml/at rib  4100)  , dd< 100) ,ddl ( 100) , dtnow,  ii , nifa,mstop  ,nclnr , 
lncrdr f nprintfnnrun,nnset»ntape» ss(  100)  »ssl  ( 100)  »tne>:t ,tnowf  >:x(  100) 
common  qset< 15000) 

common/ucoml/nsectr (6) ,ncap (3) >nb  »nr f ithrt (24, 1 1 ) , thrt<24> 1 1 ) , 
+nthrt<24) f vthrt<24) , ivthrt(24) » blue (3) t redb (3, 3) r 
+itrr(80fll)fthtrr(80fll)»ntrr(80)rvtrr<80)» 
fivtrr (80) 
coi»mon/'ucom2/db  <  20 ) 
logical  db(20) 
dimension  flos(3), 

1  tlos(3),vbl(3),vb2(3),vrl(3),vr2(3)ra(10) 
if  (db(10))  write(B, '<5x, 'CmpllO,  Time  ’  rf?.2) '  )tnow 

11000  ntryl  =  locat(ilpl) 
ntry2  =  locat(il,2) 

* 

#  Visual  Attack  Section. 

* 

11002  ics  *  ivthrt(il) 

#  write<8, ' (5x, ‘Blue  *»i2>*  in  visual  engagement  with  Red  ’,i3, 

*  +  • ,  Time  *  f  f9.2) ' )  il » ics,  tnow 

if  (ics.eq.0)  then 
qset(ntry2+9)  =  0 
qset(ntry2+10)  =  120 
ivthrt( ll )  =0 
vthrt(il)  =  999999 
return 
endif 

ntry6  =  locat(icsf6) 
ntry7  =  locat(ics,7) 
if  (qset(ntry7+10) .It. Ill)  then 
qset (ntry2+10)  =  120 
qset(ntry2+9)  =  0 
vthrttil )  =  999999 
lvthrt(il)  =  0 
return 
endif 

do  11010  jl  =  1,3 

vb  1  < . j  1 )  =  qset  (ntryl+.jl ) 
vb2(.jl)  =  qset(ntryi+3+,jl ) 
vrl(.jl)  =  qset(ntry6+,jl ) 
vr2(.jl)  =  qset(ntry6+3+.jl ) 

11010  continue 

call  los(vbl,vrl  fflos»>:mag , phi ) 
call  dot(vb2tf los»dprodfC  r theta 1 ) 
call  dot(vb2fvr2>dprodrC  »theto2> 

if  (abs(theta2' . gt. (90./57.3) .and . (xmag. le.300C 1 )  then 


1  7  j 


qset(ntry2+9)  =  0 
qset(ntry2+10)  =  120 
vthrt(il)  =  999999 
ivthrt<il)  =  0 

write<8. ' (5x, 'Flue  *,i2»*  disengaging  from  visual  engage,  uith 
+  ‘Red  *  r i 3 > ' )il » ics 
retu  rn 
endif 

if  (il.eq.l) 

+  write(8, ' <5x. ‘Blue  1  engaging  Red  *»i2.’»  Range  *»fll.2» 

+  *  ft»  Time  * »f9.2) ' )ics»xmag,tnow 

if  (il.eq.l) 

+  write(8f '  <5>:»  'Ftr  Speed  *^7.2,*  fps,  Tgt  Speed  *,f7.2, 

+  *  fps. * ) ' )qset(ntryl+7) ,qset(ntry6+7) 

if  (il.eq.l) 

+  write(8, ' (5x,  *Ftr  pos?  • ,3< *X( ‘ , il , * ) ? • ,f 11 ,2,2x)/9x, * Vel ?  * 

+  3<,X(,,il,,)2,,f9.4,4x))'> 

+  <J2»qset(ntryl+,j2) » J2=l ,3  > ,  ( J2,qset(ntryl+3+.j2)  ,.j2=l  ,3) 
if  (il.eq.l) 

+  write(8, '  (5>:»  'Tgt  posl  ‘  ,3( ‘X< * , il , ‘ ) ? • ,f 11 .2, 2x )/9x, ‘ Yel ?  * 

+  3(‘ XC ,il, *)?’»  f9. 4, 4x ))')(. j2»vrl(,j2),.j2= 1,3), 

+  <j2,vr2(.j2),J2=l,3) 

if  (il.eq.l ) 

+  write(8,'(5x,*Ftr  LOS?  *  ,3(  *X  <  %  il ,  * ) ?  *  ,f9. 4 ,4x)  > ' ) 

+  (J2,flos(.j2),.j2=l,3) 

rtheta  =  atan (qset(ntryl+7)/' (6.0*32.2) ) 

Turn  hard  toward  the  target  and  try 
to  get  a  heat  missile  shot. 

if  (qset(ntry2+4) .gt.O)  then 
call  los( vr 1 , vbl » tlos.xmag, phi2) 
call  dot ( vr2,tlas,dprcd ,c ,theto2) 

htmax  =  6000+18000*sin(abs(theta2)/3. >+qset(ntry6+3)/4. 
htmin  =  1000+5000*sin(abs(theta2)/3. ) 
if  (il.eq.l) 

+  write(8, ' (lOx, 'Heat  Missiles?  Max  Range?  *,f9.2,*  ft', 

+  *  Min  Range?  * »f9.2) ' )htmax,htmin 

if  (xmag . lt.htmin )  go  to  11020 
if  (abs(thetal). It. 0.17452)  then 

if  < (xmag. It. htmax) .and. (xmag. gt.htmin) )  then 
do  11012  .jl  =  1.3 
a(.jl)  =  qset(ntryl+.jl ) 
a(.jl+3)  =  qset(ntryl+3+.j3) 
continue 

a(7)  =  qset(ntryl+7)+lOOO 
a(8)  =  tnow 
a(9)  =  lcs 
a  (10)  =  xmag 
call  filem(4,a) 

write(8, ' (5x, ‘Blue  ‘,i2,‘  visually  launched  heatseeKer  at  ‘ 

‘Red  ‘ »i3,‘,  Range  ’ »fl0.2»‘»  Time  * , fB.2)  '  )il ,  ics,xniag, 
tnow 

xx ( 12)  =  xx ( 12)  +  1  I 


+ 


11014 


qset(ntry2+4)  =  qset(ntry2+4>-l 
qset(ntry2+9 )  =  0 
qset(ntry2+10)  =  120 
vthrt(il)  =  999999 
ivthrt(il)  =  0 
do  13  02?  .j  1  =  1,11 
ithrt<  il  ,.jl )  =  0 
thrt(il  ,.jl)  =  999999 
continue 
nthrt(il)  =  0 
return 
endif 
else 

rtheta  =  atan(qset(ntryl+7)/(6.0Ht32.2> ) 
if  (obs( rtheta ) *  1 1 .abs( thetal ) >  then 

call  turn(vb2,f los»6.0»ntryl,dtnow»qset(ntryl+7) ) 
else 

do  11014  .j  1  =  1,3 

qset(ntryl+3+,jl )  =  flos(jl) 
continue 
endif 

qset(ntry2+7)  =  xmag 
return 
endif 


endif 


If  close,  try  for  a  qun  shot. 


11020  if  (qset(ntry2+5) .gt.2.0)  then 

if  (abs( rtheta) . It . abs(thetal ) )  then 

call  turn(vb2,f los,6.0,ntryl ,dtnow,qset(ntryl+7) ) 
else 

do  11016  J 1  =  1,3 

qset(ntrylf3+,jl )  =  flos(Jl) 

11016  continue 
endif 

call  dot(vr2,flos,dprod»c ,theta2) 
guns  =  1500+2500*sin(obs<theta2)/4. ) 
if  <( rng ♦ le.guns) .and. (abs(thetal ). It. . 17452) )  then 
qset(ntry2+5)  =  qset(ntry2+5)-dtnow 
qset(ntry2+9)  =  qset(ntry2+9)+dtnow 
if ( (qset(ntry2+9)-4) .ge.2)  then 
qset(ntry2+9)  =  0 
contp  =  unf  ri*(0. ,  1 .  ,9  > 
pk  =  .l+sin<abs(theta2)/4. ) 
if  <pk  .ge.comp )  then 
ntry7  =  locat(ics,7) 
qset(ntry7+10)  =  101 
qset(ntry7+9)  =  il 
qset (ntry7+8)  =  tnow 

writedy, ' (5k, 'Blue  *,i2,',  gun  Kill  on  Red  * , i3 
+  *,  Tine?  ,,f8.2)')il,ics,tnow 

x>:  (10)  =  x>:  (10)  +  1 
XX (9)  =  xx  <  9 )  +  1 


xx(4>  =  xx(4)  +  1 
qset<ntry2+10)  =  120 
qset(ntry2+9>  =  0 
ivthrt(il)  =  0 
vthrt(il)  =  999999 
return 
endif 

write(8, ' i 'Blue  ',i2»*»  unsuccessful  gun  shot  on  Red 
+  i3»‘,  Tine*  1  ,f8.2) '  )il » ics,  tnow 

xx  ( 9 )  =  xx (9)  +  1 
vthrt(il)  =  999999 
Ivthrt(il)  =  0 
qset<ntry2+10)  =  120 
qset(ntry2+9)  =  0 
endif 

qset(ntry2+7)  =  xmog 
return 
endif 
endif 

qset(ntryl+9)  =  1000 

if  ( rtheta. lt.thetol )  then 

call  turn  <vb2»f los»6.0»ntryl ,dtnow»qset(ntryl +7) ) 
else 

do  11018  J1  =  1,3 
qset(ntrylr3+.jl )  =  flos(.jl) 

11018  continue 
endif 

qset(ntry2+7)  =  xmog 

return 

end 


178 


a 


Roy  J.  Bogusch  was  born  1  November  1946  in  Del  Rio, 
Texas.  He  graduated  from  Sanderson  High  School,  Sanderson, 
Texas  and  attended  the  United  States  Air  Force  Academy, 
graduating  in  June,  1969  with  a  Bachelor  of  Science  degree 
in  Engineering.  Following  pilot  training  at  Randolph  Air 
Force  Base,  Texas  and  conversion  to  the  F-4  Phantom  at  Davis- 
Monthan  Air  Force  Base,  Arizona,  he  flew  the  F-4  with  the 
469  Tactical  Fighter  Squadron,  Korat  Royal  Thai  Air  Force 
Base,  Thailand,  in  1971  and  1972.  Assigned  to  Bitburg  Air 
Base,  West  Germany  after  leaving  Southeast  Asia,  he  served 
as  weapons  officer  and  flight  commander  in  the  22nd  and  525th 
Tactical  Fighter  Squadrons.  Transitioning  to  the  F-15  Eagle 
in  1977,  he  returned  to  Luke  Air  Force  Base,  Arizona  in 
1978,  where  he  served  as  an  F-15  instructor  pilot  until 
assigned  to  the  School  of  Engineering,  Air  Force  Institute 
of  Technology  in  1982. 

Permanent  Address:  209  Little  John 

El  Paso,  Texas  79924 


9 


